Dear Master, Terima kasih atas bantuannya... Codingya sdh running....
Dikirim dari iPhone saya Pada 24 Jan 2017, pukul 09.14, 'Heru Safrudin' [email protected] [belajar-excel] <[email protected]> menulis: > 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 > > > > > > > > <image002.gif><image004.png> > > > > > > > > > > > > > > > > > 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. > > > > > > >
