Coba seperti ini.
Private Sub ComboBox1_Change()
On Error GoTo Err
Dim Lokasi As String
Lokasi = ActiveWorkbook.Path
Lokasi = Lokasi & "\pic\" & ComboBox1.Text & ".jpg"
Image1.Picture = LoadPicture(Lokasi)
Exit Sub
Err:
MsgBox "File tidak ditemukan"
End Sub
From: belajar-excel@yahoogroups.com [ma
Coba manfaatkan file Mr Kid yang pernah dikirimkan ke sini:
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/35651
seingat saya file ini dibuat untuk Mr. Husnul tentang Denah Siswa
2015-10-20 20:37 GMT+07:00 HUSNUL FAIZIN husnulfaizin1...@gmail.com
[belajar-excel] :
>
>
>
Assalamu'alaikum.
Belajar dari contoh file combobox dari arsip milis tapi buntu ketika mau
ambil gambar dari folder dengan script vba (karena belum mampu). Jadi
harapannya dapat dibantu oleh para master untuk menyelesaikan kasus di file
ini.
Terimakasih sebelumnya master...!
Wassalam
HF
loadp
3 matches
Mail list logo