[Resolvido] Carregar imagem no UserForm
Enviado: 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.
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.