Coba kode dikoreksi seperti berikut :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyPath As String
Dim Mypic As String
MyPath = ThisWorkbook.Path & "\" & Target.Value & ".jpg" ‘Ini sudah
mendefinisikan gambarnya
MsgBox MyPath
If Intersect(Target, Range("a1:a5")) Is Nothing Then Exit Sub
Mypic = Target.Value & ".jpg" ‘Jadi ini sudah tidak diperlukan lagi
UserForm1.Image1.Picture = LoadPicture(MyPath) ‘Coba dengan kode ini
UserForm1.Show
End Sub
<ymsgr:sendIM?heru.safrudin> Heru SafrudinBISI,Heru Safrudin,YM online
From: [email protected] [mailto:[email protected]]
Sent: 19 Januari 2017 17:54
To: [email protected]
Subject: [belajar-excel] Membuat Form Popup gambar [1 Attachment]
Dear Para Master,
Mohon bantuannya, saya membuat Menu Popup namun belum berhasil (attach), pada
saat saya klik tiap cell yang berisi item code akan muncul menu popup gambar
sesui dengan item code pada tiap2 cell seperti terlampir.
Atas bantuannya saya ucapkan banyak terima kasih.
