boa tarde amigos, estou tendo problemas com um código no qual a função dele e buscar uma imagem e depois salva.
bom , quando rodo código:
Sub Btn_Troca_Imagem_Click()
fotodocumentos = Application.GetOpenFilename(filefilter:="picture files,*.bmp")
If fotodocumentos <> "" Then
Img_Documento.Picture = LoadPicture(fotodocumentos)
Else
Img_Documento.Picture = Img_Documento
End If
End Sub
abre uma janela de navegação para achar uma determinada imagem e depois seleciono e clico em ok, ate ai tudo bem, mas se eu nçao acha a imagem e apertar
no botão cancela ele mada depurar, ai aparece " Img_Documento.Picture = LoadPicture(fotodocumentos) " selecionado de amarelo acusando o erro.
eu não sei o que esta acontecendo, por isso conto com a experiencia de vocês. no assunto.
sem mais obrigado....
Postado : 11/02/2015 12:07 pm