Insert Gambar dengan Klik Button PADA EXCEL

Langkah 1

Buka Visual Basic Editor dan Insert module. (Bagaimana cara membuka Visual Basic Editor ada di tutorial sebelumnya!)

Langkah 2

Setelah Module di-insert, akan muncul nama Module1. Klik 2 kali pada Module1 untuk membuka code editor Module1.

Pada Code Editor, tulis baris program berikut (Baris yang berawalan tanda ' adalah comment) :

Sub insertpic ()

'Deklarasi variabel untuk menampung nama file.

Dim Filetoopen

'Memunculkan Dialog Window untuk memilih File Gambar. Hasilnya di berupa nama dan Path file dan disimpan di variabel Filetoopen.

'Tipe file yang bisa dibuka adalah JPG dan PNG. Tipe file ini bisa disesuaikan dengan kebutuhan.

Filetoopen = Application.GetOpenFilename("Picture File (*.jpg), *.jpg,(*.png), *.png", , "Insert Picture", , False)

'Perintah untuk insert file. File yang diinsert sesuai dengan nama dan path file yang sebelumnya dipilih.

ActiveSheet.Pictures.Insert (Filetoopen)

End sub

Nama Macro diatas adalah insertpic.


Langkah 3
Setelah program dibuat, selanjutnya menyiapkan tombolnya.

Tombol yang kita gunakan adalah Button Control Form. Kita dapat juga menggunakan Button ControlX. Tapi ada sedikit perbedaan dalam urutan langkah-langkahnya.

Untuk memunculkan Button, lihat gambar dibawah:

Langkah 4

Saat kita telah membuat Button Control Form, maka otomatis akan muncul window yang akan meminta kita memilih Macro.

Pilih Macro yang sebelumnya telah kita siapkan yaitu "insertpic". Trus Klik OK.

Dan selesai sudah Langkah pembuatan Macro untuk Insert Pic kita.

Percobaan

Saatnya untuk mencoba!

Silahkan klik pada tombol yang telah kita buat. Jika langkah-langkah kita sama, maka akan muncul sebuah window untuk memilih gambar.