Página 1 de 1

[Resolvido] Carregar imagem no UserForm

Enviado: Qui Out 10, 2019 7:38 am
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.

Re: Carregar imagem no UserForm

Enviado: Qui Out 10, 2019 9:12 pm
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

Re: Carregar imagem no UserForm

Enviado: Sex Out 11, 2019 9:51 am
por milton
Bom dia!

avgsantos não deu certo.

Se alguém puder ajudar, segue o anexo.

Agradeço desde já.

Re: Carregar imagem no UserForm

Enviado: Sex Out 11, 2019 3:13 pm
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!