Mauro,
O código abaixo faz exatamente o que eu preciso, porém, entretanto, ao encerrar o projeto e iniciá-lo novamente, a imagem ''postada'' desaparece!
O que farei?
Dim fileName As String
'use GetOpenFilename Method to select picture
fileName = Application.GetOpenFilename(filefilter:="Tiff Files(*.tif;*.tiff),*.tif;*.tiff,JPEG Files (*.jpg;*.jpeg;*.jfif;*.jpe),*.jpg;*.jpeg;*.jfif;*.jpe,Bitmap Files(*.bmp),*.bmp", FilterIndex:=2, Title:="Select a File", MultiSelect:=False)
If fileName = "False" Then
MsgBox "Nenhuma imagem foi selecionada!"
Else
'load picture to Image control, using LoadPicture property
Me.Image5.Picture = LoadPicture(fileName)
'after any change vba has to be told to refresh the UserForm for the change to appear
Me.Repaint
'label caption changes after picture is loaded
Me.Label9.Caption = "Alterar Imagem"
End If
Postado : 30/07/2014 1:28 pm