Wa'alaikumussalam wr wb Hai Prazt,
Pathnya disimpan di variabel sPath. Nama filenya di variabel sFile. Wassalamu'alaikum wr wb Kid 2016-05-07 9:24 GMT+07:00 Prazt Math [email protected] [belajar-excel] < [email protected]>: > > > Assalamu’alaikum > > Siang para master, saya pernah membaca diskusi tentang “Insert foto > otomatis dari sebuah foldr” di milis ini > > Kalau ga salah ini linknya > <http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-insert-photo-otomatis-dari-sebuah-folder-td5711492.html> > dan di sana saya menemukan cekrip dari mr. kid yang berbunyi ; > > > > Isi object control activex image diganti dengan memanfaatkan event > worksheet change sebagai berikut : > Private Sub Worksheet_Change(ByVal Target As Range) > Dim sFile As String, sPath As String > If Target.Count = 1 Then > If InStr(Target.Address & "|", "$C$3|") <> 0 Then > ActiveSheet.Calculate > > 'ganti rujukan path seperti contoh > 'drive:\folder\subfolder\ > 'contoh : E:\myData\mySubData\ > sPath = ThisWorkbook.Path & "\" > sFile = Range("c4").Value & ".jpg" > If LenB(Dir$(sPath & sFile)) <> 0 Then > imgPeserta.Picture = LoadPicture(sPath & sFile) > Else > imgPeserta.Picture = LoadPicture(vbNullString) > End If > End If > End If > End Sub > > > > Yang saya tanyakan dimana letak rujukan path_nya dan cekrip di atas jika > dikasih folder path punya saya jadinya penulisannya gimana ? missal folder > foto saya berada di : G:\BALI 2016\bali > > Dan file excel yang saya buat tersebut berada di folder tersebut juga. > Maaf jika salah sebut karena masih cetek saya…Salam. > > > > > > Sent from Mail <https://go.microsoft.com/fwlink/?LinkId=550986> for > Windows 10 > > > > >
