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 . . . . . .

..

Kursus Excel Online

Tentu sebagian besar kita mengenal dan memakai Ms.Excel dalam kegiatan sehari-hari.
Banyak kemudahan yang bisa kita peroleh kalau kita tahu trik-triknya..

Salah satu hasil dari pemberdayaan Ms. Excel adalah produk kami Sua_Soft Accounting, yaitu Aplikasi Akuntansi atau Program untuk membuat Laporan Keuangan Usaha..

Alhamdulillah, dengan adanya intenet, kita bisa searching by google kalau menginginkan atau mengetahui trik-trik excel tertentu.

Namun kendala yang timbul dalam pencarian adalah tentu kadang dapat..kadang tidak...
Kalaupun dapat, tidak sesuai dengan kasus yang kita hadapi
Tepatnya..tidak sesuai dengan keinginan

Waktu kita sudah terbuang...tapi tidak sia-sia..tetap dapat pahala Insya Allah..

Nah, disini saya menawarkan kursus excel online yang agak beda
Teknisnya seperti ini :

ANDA BERTANYA...KAMI MENJAWAB..

Tanya-Jawab menggunakan layanan E-mailSilahkan anda menanyakan permasalahan atau trik yang ingin anda ketahui, Insya Allah kami akan menjawabnya paling lama 24 jam setelah anda mengirimkan pertanyaan..
Namun perlu kami sampaikan, bahwa pertanyaannya bukan meminta untuk dibuatkan Aplikasi tertentu, tapi pertanyaan yang dimaksud adalah bagaimana mengetahui trik-trik tertentu.

Contoh trik:
Bagaimana membuat rumus terbilang?
- 35 = Tiga Puluh Lima
- 150 = Seratus Lima Puluh

Contoh Aplikasi :
- Aplikasi Akuntansi
- Aplikasi Stok Persediaan
- dll

Namun kami menyadari kekurangan ilmu kami, dan masih perlu banyak belajar,..
Mana tau, ada pertanyaan anda yang tidak/belum bisa kami jawab maka kami akan menyampaikan dengan sejujurnya..dan akan kami kabari paling lama 24 jam dari pengajuan pertanyaan anda Insya Allah..
Dan Insya Allah, kami juga akan tetap terus mencari jalan keluarnya..

Untuk mendukung kestabilan, tentu tidak gratis...dan pasti tidak mahal untuk setitik ilmu.

Biaya hanya Rp. 150rb / bulan

Kami tidak membatasi berapapun pertanyaan anda...Kami akan menjawab sesegera mungkin. Insya Allah.

Jika berminat bisa menghubungi kami di
Sua Betria Dhani
HP : 085362549724
WhatsApp : 081264523595
Email : suabechria@gmail.com