Assalamu’alaikum Siang para master, saya pernah membaca diskusi tentang “Insert foto otomatis dari sebuah foldr” di milis ini Kalau ga salah ini linknya 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 for Windows 10
SKHUNS_2016.xlsm
Description: Binary data
