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.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
[Resolvido] Carregar imagem no UserForm
[Resolvido] Carregar imagem no UserForm
Editado pela última vez por milton em Sex Out 11, 2019 3:14 pm, em um total de 1 vez.
Re: Carregar imagem no UserForm
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
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
Bom dia!
avgsantos não deu certo.
Se alguém puder ajudar, segue o anexo.
Agradeço desde já.
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 323 vezes
Re: Carregar imagem no UserForm
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!
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!