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: [email protected] [mailto:[email protected]] Sent: Tuesday, October 20, 2015 8:37 PM To: [email protected] Subject: [belajar-excel] loadPicture dengan event combo box [1 Attachment] 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
