Membuat Tombol Insert Picture Menggunakan Macro di Ms. Excel

Assalamu'alaikum Wr. Wb.

Salam sejahtera untuk kita semua, Alahamdulillah Saya masih diberi nikmat sehat oleh Allah S.W.T. Sehingga pada kesempatan kali ini Saya bisa untuk menyapa para Sobat Blogger semuanya. Dan tak lupa Saya ucapkan banyak terimakasih kepada seluruh pengunjung Blog Saya ini.

Baiklah, untuk pembahasan pada kesempatan kali ini adalah cara membuat tombol Insert Pictrue/Gambar menggunakan macro di Aplikasi Ms. Excel, dan Aplikasi Ms. Excel yang Saya gunakan adalah Aplikasi Ms. Excel versi 2007. Sebenarnya pembahasan mengenai cara membuat tombol Insert Picture pada aplikasi Ms. Excel sudah Saya posting pada postingan Saya yang berjudul " Membuat Tombol Insert Gambar Menggunakan ActiveX Control Pada Ms. Excel 2007 "

Jika dilihat dari judul postingan yang terdahulu di atas, ada perbedaan yang sangat mencolok, yaitu jika pada postingan yang terdahulu ada tambahan ActiveX Control, namun pada pembahan/postingan kali ini tidak menggunakan ActiveX Control. Agar lebih jelas, silahkan baca postingan Saya yang terdahulu tadi.

Dan berikut merupakan langkah-langkah/cara untuk membuat Timbol Insert Picture Menggunakan Macro di Ms. Excel :

1. Buka lembar kerja Ms. Excelnya 

2. Buat sebuah tombol (pada contoh Saya menggunakan Shape) seperti berikut ini :

Klik Menu Insert, kemudian klik pada Shapes, lanjutkan dengan klik/pilih jenis Shape (pada contoh Saya memilih Rounded Rectangle)

Lanjutkan dengan mengubah layout/tampilan shape tersebut melalui menu drawing tool, dengan cara klik shape tadi, kemudian akan muncul menu drawing tool, kemudian tentuakan layout sesuai selera masing-masing, pada contoh Saya buat seperti berikut ini :

Agar tombol tersebut terlihat lebih hidup, kita tambahkan sebuah text, dengan cara klik kanan pada shape/tombol tadi kemudian pilih Edit Text, kemudian tulis teks sesuai dengan selera masing-masing, pada contoh Saya membuat seperti gambar di bawah ini :

Untuk langkah pembuatan tombol sudah selesai. Sekarang kita lanjutkan untuk menambahkan code/script macro, agar tombol tersebut dapat digunakan untuk menyisipkan sebuah gambar, langkah-langkahnya adalah sebagai berikut ini :

1. Sisipkan sebuah shape (pilih rectangle shape) :

Klik Menu Insert, kemudian klik Shapes, lanjutkan dengan klik/memilih rectangle shape

Untuk mempercantiknya silahkan edit layout/tampilan shape tersebut dengan cara klik kanan pada shape kemudian klik kanan lanjutkan klik Format Shape, pada opsi fill pilih no fill, pada opsi line color pilih solid dan ubah color menjadi hitam, pada opsi line style ubah nilai width menjadi 0.5, kemudian posisikan shape tadi persis diatas tombol insert picture, maka akan seperti berikut ini :

Selanjutnya ubah nama rectangle shape di atas menjadi Logo dengan cara klik pada rectangle tersebut kemudian pada formula bar ubah nama rectengle shape menjadi Logo, perhatikan gambar di bawah ini :

Tekan enter agar nama bisa berubah :

untuk memastikan apakah nama rectangle shape berubah menjadi logo, cek dengan cara klik pada rectabgle shape dan lihat pada formula bar, apa sudah berubah menjadi Logo atau belum, jika belum silahkan ulangi langkah di atas.

Kemudian sisipkan code/script macro dibawah ini melalui lembar kerja VBA, lakukan dengan cara tekan tombol alt+f11 pada keyboard :

Klik menu Insert dan pilih Module, kemudian klik module tersebut, lanjutkan dengan copas script/code di bawah ini kedalam module tersebut :

Sub InsertPicture()

'https://masoperator.blogspot.com

Dim vFilePic

ChDir ActiveWorkbook.Path

vFilePic = Application.GetOpenFilename _

("Pictures (*.gif; *.jpg; *.bmp; *.tif; *.png),*.gif; *.jpg; *.bmp; *.tif; *.png", , "Pilih Logo")

If vFilePic = False Then Exit Sub

ActiveSheet.Unprotect

ActiveSheet.Shapes("Logo").Fill.UserPicture vFilePic

End Sub

Tutup halaman VBA / beralih ke lembar kerja Ms. Excel lagi, kemudian klik kanan pada tombol insert picture, lanjutkan dengan memilih Assign Macro :

Lanjutkan dengan memilih Macro "InsertPicture" kemudian klik OK, perhatikan gambar di bawah ini :

Silahkan coba dengan klik tombol Insert Picture tadi, jika berhasil akan ada jendela baru yang meminta kita untuk memilih file gambar yang akan kita sisipkan. terakhir silahkan simpan lembar kerja tadi dengan format xlsm.

NB : Agar gambar terlihat cantik silahkan hilangkan line/border dari gambar tersebut. Dengan cara klik kanan pada gambar dan pilih format Picture  dan pada opsi line color pilih no color

Demikian pembahasan mengenai Cara Membuat Timbol Insert Picture Menggunakan Macro di Ms. Excel, mudah-mudahan apa yang sudah Saya sampaikan pada kesempatan kali ini bisa bermanfaat untuk kita semua, terimakasih dan Semoga bermanfaat.

Download Contoh File Insert Picture

Salam Operator Sekolah

Share :