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.

[Resolvido] Carregar imagem no UserForm

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Avatar do usuário
milton
Manda bem
Manda bem
Mensagens: 124
Registrado em: Sex Jun 17, 2016 8:22 am

[Resolvido] Carregar imagem no UserForm

Mensagem por milton » Qui Out 10, 2019 7:38 am

Bom dia amigos

Com esse código eu digito o nome da pessoa no CbbNome e, automaticamente localiza a imagem na Pasta e carregar no UserForm e funciona perfeitamente, porém só carrega .jpg

Como posso ajusta-lo para reconhecer outras extensões e carregar automático? Ou seja, independente da extensão que estiver a imagem, o código localiza e carrega automaticamente na userform.

São eles: (.jpg .jpeg .bmp e .png)

Me.ImgFoto.Picture = LoadPicture() 'Limpar imagem
Me.ImgFoto.Picture = LoadPicture("C:\Fotos de Oficiais\" & Me.CbbNome.Value & ".jpg")
ImgFoto.PictureSizeMode = fmPictureSizeModeStretch 'Ajusta o tamanho da imagem

Desde já agradeço.
Editado pela última vez por milton em Sex Out 11, 2019 3:14 pm, em um total de 1 vez.



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.


avgsantos
Colaborador
Colaborador
Mensagens: 88
Registrado em: Ter Fev 02, 2016 6:39 pm

Re: Carregar imagem no UserForm

Mensagem por avgsantos » Qui Out 10, 2019 9:12 pm

Boa noite, Milton

Umas das possibilidade...

Me.ImgFoto.Picture = LoadPicture() 'Limpar imagem
Me.ImgFoto.Picture = LoadPicture("C:\Fotos de Oficiais\" & Me.CbbNome.Value & "*.jpg;*.jpeg;*.GIF;*.bmp")
ImgFoto.PictureSizeMode = fmPictureSizeModeStretch 'Ajusta o tamanho da imagem

Avgsantos



Avatar do usuário
milton
Manda bem
Manda bem
Mensagens: 124
Registrado em: Sex Jun 17, 2016 8:22 am

Re: Carregar imagem no UserForm

Mensagem por milton » Sex Out 11, 2019 9:51 am

Bom dia!

avgsantos não deu certo.

Se alguém puder ajudar, segue o anexo.

Agradeço desde já.
Anexos
Carregar Imagem.rar
(19.93 KiB) Baixado 9 vezes



Avatar do usuário
milton
Manda bem
Manda bem
Mensagens: 124
Registrado em: Sex Jun 17, 2016 8:22 am

Re: Carregar imagem no UserForm

Mensagem por milton » Sex Out 11, 2019 3:13 pm

Boa tarde pessoal

Eu coloquei dessa forma e funcionou.

Me.ImgFoto.Picture = LoadPicture() 'Limpar imagem
Me.ImgFoto.Picture = LoadPicture("C:\Fotos de Oficiais\" & Me.CbbNome.Value & ".jpg")
Me.ImgFoto.Picture = LoadPicture("C:\Fotos de Oficiais\" & Me.CbbNome.Value & ".jpeg")
Me.ImgFoto.Picture = LoadPicture("C:\Fotos de Oficiais\" & Me.CbbNome.Value & ".gif")
Me.ImgFoto.Picture = LoadPicture("C:\Fotos de Oficiais\" & Me.CbbNome.Value & ".bmp")
ImgFoto.PictureSizeMode = fmPictureSizeModeStretch 'Ajusta o tamanho da imagem

Obrigado!



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