Insert Picture pada Kontrol Image di Userform

Tampilannya nanti seperti ini

Misalkan ada 4 gambar yang berada di alamat D:\Sua_Soft\Trik Excel
1. Superman.jpeg
2. Spiderman.jpeg
3. Hulk.jpeg
4. SuaSoft.jpg

Untuk menampilkan seperti di form diatas, langkah yang perlu kita lakukukan sebagai berikut :
1. Buat form seperti dibawah ini

Silahkan edit properti kontrol seperti dibawah ini

Lalu tulis kode dibawah ini

Private Sub cbo_NamaSuperhero_Change()
'Menampilkan gambar sesuai alamatnya
img_Superhero.Picture = LoadPicture(ActiveWorkbook.Path & "\" & cbo_NamaSuperhero.Text)
End Sub

Private Sub UserForm_Activate()
'Menghapus list di combo box
cbo_NamaSuperhero.Clear

'Menambah item-item pada combo box
cbo_NamaSuperhero.AddItem "Superman.jpeg"
cbo_NamaSuperhero.AddItem "Spiderman.jpeg"
cbo_NamaSuperhero.AddItem "Hulk.jpeg"
cbo_NamaSuperhero.AddItem "SuaSoft.jpg"

'Ketika userform aktif, maka nilai combo box "Superman" dan di load gambar sesuai alamat gambarcbo_NamaSuperhero.Text = "Superman.jpeg"
img_Superhero.Picture = LoadPicture(ActiveWorkbook.Path & "\superman.jpeg")
End Sub

Untuk menjalankannya pilih menu "Run" atau tekan tombol F5

Filenya bisa di download disini
File dalam bentuk .rar , sebelum digunakan file .rar tersebut harus diexctrak dulu agar bisa berjalan dengan baik.


S E L E S A I . . . . . .

..