Página 1 de 1

Buscar imagem PNG [RESOLVIDO]

Enviado: Seg Jul 03, 2017 5:34 pm
por costaribeiro
:geek: 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:

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
Se alguém puder dar uma forcinha, será legal.

Obrigado.

Re: Buscar imagem PNG

Enviado: Seg Jul 03, 2017 8:57 pm
por Wagner.cwb
Meu caro, eu vou colar como fiz a minha, de repente te ajuda.
Vai junto a referencia de onde aprendi.

Código: Selecionar todos

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

Re: Buscar imagem PNG

Enviado: Seg Jul 03, 2017 10:50 pm
por Basole
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:

Re: Buscar imagem PNG

Enviado: Ter Jul 11, 2017 5:25 pm
por costaribeiro
Valeu Bosole, deu certo.

Obrigado