INSERT GAMBAR DENGAN KLIK BUTTON

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!)

KE ButtonInsertPic 01

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.

KE ButtonInsertPic 02

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:

KE ButtonInsertPic 03

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.

KE ButtonInsertPic 04

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.

KE ButtonInsertPic 05

Saat kita klik OK, gambar akan ter-insert ke Worksheet.

CATATAN: JIKA INGIN MENEMPATKAN GAMBAR DI TEMPAT YANG DIINGINKAN BISA MENGGUNKAN FORMULA INI

Coba code berikut:


Sub insertpic()
'Deklarasi variabel untuk menampung nama file.
Dim Filetoopen
'Deklarasi variabel untuk meletakkan gambar pada posisi cell yang aktif.
Dim pic As Object, alamattop As Double, alamatleft As Double

'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)

'Men-set variabel pic menjadi holder Perintah untuk insert file.
'File yang diinsert sesuai dengan nama dan path file yang sebelumnya dipilih.
Set pic = ActiveSheet.Pictures.Insert(Filetoopen)

'ambil alamat cell yang aktif
alamattop = Range(ActiveCell.Address).Top
alamatleft = Range(ActiveCell.Address).Left

'Meng-insert gambar dan meletakkan gambar pada alamat yang aktif
With pic
.Top = alamattop
.Left = alamatleft
End With

End Sub

---

Dengan code diatas, maka gambar akan disisipkan pada cell yang aktif (cell yang dipilih).

Semoga bermanfaat.

SUMBER: https://www.klinikexcel.com/articles/tutorials/item/41-macro-vba/74-insert-gambar-dengan-klik-button

Dukung kami berkembang dengan Subscribe