Buscar imagem PNG [RESOLVIDO]
Enviado: Seg Jul 03, 2017 5:34 pm
Olá, pessoal!
Boa tarde.
Não consigo buscar imagem PNG para inserir no cadastro em formulário. Quando acrescento "*.png", dá erro de localização da imagem "erro: 481". Meu código é esse:
Se alguém puder dar uma forcinha, será legal.
Obrigado.
Boa tarde.
Não consigo buscar imagem PNG para inserir no cadastro em formulário. Quando acrescento "*.png", dá erro de localização da imagem "erro: 481". Meu código é esse:
Código: Selecionar todos
Private Sub Busca_imagem_Click()
On Error GoTo erro
Dim foto As String
foto = Application.GetOpenFilename(fileFilter:="picture file,*.jpg")
FotoCliente.Picture = LoadPicture(foto)
erro:
End Sub
Obrigado.