Belajar VBA Excel : Menyisipkan Gambar Ke Dalam Lembar Kerja Menggunakan Macro

 Hallo Sobar Blogger semuanya, selamat datang kembali di MlatenMania.com. Kembali Saya akan berbagi sebuah tutorial mengenai VBA Excel, dan seperti judul artikel ini Saya akan berbagi tutorial mengenai cara menyisipkan gambar ke dalam lembar kerja Excel menggunakan Macro. Berikut merupakan pembahasan lengkapnya:

Mungkin ada banyak cara untuk menyisipkan gambar ke dalam lembar kerja Excel menggunakan Macro, dan salah satunya adalah cara yang akan Saya bagikan pada kesempatan ini. Untuk langkah-langkahnya sendiri adalah selain menggunakan kode/script Macro disini juga kita akan menggunakan sebuah media sebagai tempat untuk untuk menempelkan gambar dan juga sebuah tombol untuk membuka file gambar (tombol insert). Dan untuk media tersebut, Saya menggunakan shape sebagai medianya.

Menyisipkan Shape

Seperti yang sudah Saya jelaskan di atas, disini Saya akan menggunakan shape sebagai media untuk menempelkan gambar dan juga untuk tombol sebagai alat untuk membuka file gambar yang akan kita sisipkan.

1. Shape untuk menempelkan gambar

Sisipkan sebuah rectangle shape ke dalam lembar kerja Excel kita, untuk ukuran disesuaikan dengan keinginan/kebutuhan masing-masing. Kemudian ubah outline dari shape tersebut menjadi transparan/tanpa menggunakan outline, dan hasilnya adalah seperti pada gambar di bawah ini:

Selanjutnya adalah ubah nama shape tersebut, dan pada contoh ini Saya mengubah namanya menjadi "Gambar1", caranya adalah:

• Klik pada shape tersebut
• Kemudian pada Name Box ubah teks Rectangle1 menjadi Gambar1, perhatikan gambar di bawah ini:

• Tekan Enter 

Untuk mengetahui apakah nama shape tadi sudah sesuai dengan yang kita tentukan tadi atau belum, klik pada shape tersebut kemudian lihat pada Name Box. 

2. Shape untuk tombol insert

Untuk shape yang akan dijadikan sebagai tombol insert, disini Saya menggunakan rectangle rounded corner. Dan Saya meletakknya persis di bawah shape yang pertama tadi, dan berikut merupakan hasilnya:

Kode/Script Macro Untuk Insert Picture (Menyisipkan Gambar)

Tahap selanjutnya adalah menyisipkan kode/script macro untuk menyisipkan gambar, dan berikut merupakan kode/script tersebut:

Sub SisipkanGambar()
Dim vntFilename As Variant
vntFilename = Application.GetOpenFilename("Pictures (*.gif; *.jpg; *.bmp; *.tif; *.png),*.gif; *.jpg; *.bmp; *.tif; *.png", , "Pilih Gambar")
If vntFilename = "False" Then Exit Sub
ActiveSheet.Shapes("Gambar1").Fill.UserPicture vntFilename
End Sub

• Copy kode/script Macro di atas;
• Kemudian buka halaman Visual Basic Excel kita (Alt+F11);
• Sisipkan sebuah Module, dengan cara klik menu Insert kemudian Module; dan
• Paste/tempel kode/script Macro di atas ke dalam Module tadi.

• Jika sudah, tutup halaman Visual Basic dan kembali ke lembar kerja Excel. Dan selanjutnya adalah kita klik kanan pada tombol insert dan pilih Assign Macro, perhatikan gambar di bawah ini:

• Pilih SisipkanGambar dan klik OK, perhatikan lagi gambar di bawah ini:

Sekarang kita klik pada tombol Insert Picture tadi, jika semua langkah-langkah di atas dilakukan dengan benar, maka akan seperti pada gambar di bawah ini:

Jangan lupa untuk menyimpan file-nya dalam format *.xlsm.

Demikian artikel mengenai Belajar VBA Excel : Menyisipkan Gambar Ke Dalam Lembar Kerja Menggunakan Macro, mudah-mudahan apa yang sudah Saya sampaikan pada kesempatan ini bisa bermanfaat untuk kita semuanya.

Jangan lupa untuk terus mengunjungi Mlatenmania.com untuk mendapatkan informasi-informasi menraik dan bermanfaat lainnya. Sekian, terimakasih dan selamat mencoba.