A imagem é carregada, porem como o objeto imagem nessa condição está com o foco, fica em primeiro plano e a imagem "atras".
Para visualizar a imagem carregada e possivel utilizar Zorder ou Repaint
Utilizando o exemplo do colega Wagner, Seria algo =/- assim
Utilizando Zorder:
Private Sub Image2_Click()
Dim caminho As String
caminho = ThisWorkbook.Path & "" & "simbolo " & ThisWorkbook.Sheets("Planilha1").Cells(2, 1).Value & ".jpg"
UserForm1.Image1.Picture = LoadPicture(caminho)
UserForm1.Image1.PictureSizeMode = fmPictureSizeModeStretch
UserForm1.Image2.Picture = LoadPicture(caminho)
Image2.ZOrder (1)
UserForm1.Image2.PictureSizeMode = fmPictureSizeModeStretch
End Sub
Utilizando Repaint:
Private Sub Image2_Click()
Dim caminho As String
caminho = ThisWorkbook.Path & "" & "simbolo " & ThisWorkbook.Sheets("Planilha1").Cells(2, 1).Value & ".jpg"
UserForm1.Image1.Picture = LoadPicture(caminho)
UserForm1.Image1.PictureSizeMode = fmPictureSizeModeStretch
UserForm1.Image2.Picture = LoadPicture(caminho)
UserForm1.Image2.PictureSizeMode = fmPictureSizeModeStretch
Repaint
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 05/11/2017 7:02 pm