Insert Gambar dengan Klik Button
Tutorial Level 4
Halo semua,
Tutorial kali ini menjawab pertanyaan dari Red:
"bro,,, kl bikin tombol buat nyisipin/masukin image, dengan cara ngeklik... caranya gmn ya? thx"
Sebelum membaca tutorial ini, saya sarankan untuk membaca tutorial pada link "Baca dulu" di atas.
Oke, kita anggap semua sudah membaca tutorial dasarnya. Sekarang, waktunya berpesta!
Apa sih hasil VBA yang mau kita peroleh?
Sesuai permintaan, hasil VBA yang ingin kita peroleh adalah:
Ada tombol di Worksheet Excel. Dan saat kita KLIK tombol tersebut, maka akan muncul File Explorer untuk memilih gambar (format jpg, dll). Setelah kita pilih, klik OK, maka akan muncul gambar tersebut di Worksheet.
Cuma begitu doank?
Yup.. Cuma begitu aja. Nanti kita buat se-sederhana mungkin. Dan bisa dimodifikasi sendiri sesuai keinginan.
Ok..! Kalau sudah tau Goal yang ingin dicapai, waktunya untuk mulai.
Langkah 1
Buka Visual Basic Editor dan Insert module. (Bagaimana cara membuka Visual Basic Editor ada di tutorial sebelumnya!)
Lihat pada gambar diatas. Pada contoh, Workbook saya bernama "Book1".
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.
Saat kita klik OK, gambar akan ter-insert ke Worksheet.
Kok letak gambarnya berantakan?
Well, it's your job to continue this project to fit with your requirement right?
So.. Sampai disini dulu dan see you..