Vídeo recomendado
https://youtu.be/diWPPPhW-9E

[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: 147
Registrado em: Sex Jun 17, 2016 8:22 am

[Resolvido] Carregar imagem no UserForm

Mensagem por milton »

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: 93
Registrado em: Ter Fev 02, 2016 6:39 pm

Re: Carregar imagem no UserForm

Mensagem por avgsantos »

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: 147
Registrado em: Sex Jun 17, 2016 8:22 am

Re: Carregar imagem no UserForm

Mensagem por milton »

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 310 vezes


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

Re: Carregar imagem no UserForm

Mensagem por milton »

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