ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Buscar imagem PNG [RESOLVIDO]

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Avatar do usuário
costaribeiro
Colaborador
Colaborador
Mensagens: 89
Registrado em: Ter Mar 04, 2014 10:10 am
Localização: Pouso Alegre - MG

Buscar imagem PNG [RESOLVIDO]

Mensagem por costaribeiro » Seg Jul 03, 2017 5:34 pm

: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.
Editado pela última vez por costaribeiro em Ter Jul 11, 2017 5:25 pm, em um total de 1 vez.


Marcelo Ribeiro
▀▄▀▄▀▄▀▄▀▄▀
Vamos compartilhar
o conhecimento!

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Wagner.cwb
Manda bem
Manda bem
Mensagens: 168
Registrado em: Sáb Set 24, 2016 4:48 pm

Re: Buscar imagem PNG

Mensagem por Wagner.cwb » Seg Jul 03, 2017 8:57 pm

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



Basole
Colaborador
Colaborador
Mensagens: 56
Registrado em: Qua Mar 20, 2013 6:31 pm

Re: Buscar imagem PNG

Mensagem por Basole » Seg Jul 03, 2017 10:50 pm

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:
Anexos
Form_Imagem_PNG .zip
(286.78 KiB) Baixado 348 vezes



Avatar do usuário
costaribeiro
Colaborador
Colaborador
Mensagens: 89
Registrado em: Ter Mar 04, 2014 10:10 am
Localização: Pouso Alegre - MG

Re: Buscar imagem PNG

Mensagem por costaribeiro » Ter Jul 11, 2017 5:25 pm

Valeu Bosole, deu certo.

Obrigado


Marcelo Ribeiro
▀▄▀▄▀▄▀▄▀▄▀
Vamos compartilhar
o conhecimento!

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder