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:
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
Se alguém puder dar uma forcinha, será legal.
Obrigado.
Editado pela última vez por costaribeiro em Ter Jul 11, 2017 5:25 pm, em um total de 1 vez.
Sub Imagem_simepar()
'https://forum.baboo.com.br/index.php?/topic/688214-macro-para-inserir-imagem/
Dim Pict
Dim Imagem As Object
Dim ImgFileFormat As String
Dim Celula As String
Call Módulo34.Apagar_Simepar
Celula = "AL32" ' local que ficará a imagem
ImgFileFormat = "Image Files JPG (*.jpg),*.jpg, Image Files GIF (*.gif),*.gif, Image Files BMP (*.bmp),*.bmp"
Pict = "http://www.simepar.br//radar/public/mscpr/MSC_PR_N4_1.gif" 'Application.GetOpenFilename(ImgFileFormat)
If Pict = False Then End
Set Imagem = ActiveSheet.Pictures.Insert(Pict)
Imagem.Top = Range(Celula).Top
Imagem.Left = Range(Celula).Left
Imagem.ShapeRange.LockAspectRatio = msoTrue
'Imagem.Height = Range(Celula).Height * 12 '12 = Quantidade de linhas...
'Imagem.Width = Range(Celula).Width * 3 '3 = Quantidade de colunas...
Application.CutCopyMode = False
End Sub
O LoadPicture não aceita o formato (*.png) de imagem, mas se insiste em colocar uma imagem com esta extensão, voce pode usar funções Api. Veja o exemplo anexo: