Membuat Tombol Insert Picture Macro Di Excel

 Rifai's Blog. Selamat datang kembali Sobat Blogger semuanya, terimakasih sebanyak-banyaknya kepada Anda semuanya yang sudah mengunjungi Blog Sederhana Saya ini. Sesuai dengan judul artikel/postingan kali ini, pada kesempatan ini Saya akan berbagi sebuah tutorial sederhana mengenai Cara Membuat Tombol Insert Picture Dengan Memanfaatkan Macro VBA Di Aplikasi Ms. Excel.

 Untuk dapat membuat tombol Insert Picture tersebut tentunya kita membutuhkan sebuah objek yang nantinya akan kita gunakan/fungsikan sebagai tombolnya, baik menggunakan gambar atau pun shape. Dan pada contoh ini Saya menggunakan sebuah shape, karena lebih mudah untuk membuatnya. Dan berikut ini langkah langkah dalam membuat sebuah Tombol Insert Picture Macro Di Aplikasi Ms. Excel :

A. Membuat Tombol Menggunakan Shape

1. Klik pada menu Insert, kemudian klik lagi pada Shapes kemudian cari shape yang kita inginkan, dan pada contoh ini Saya menggunakan Rounded Rectangle :

2. Silahkan sisipkan shape  yang sudah kita pilih ke dalam lembar kerja Aplikasi Ms. Excel kita, kemudian disain shape tersebut sesuai dengan yang kita inginkan, pada contoh ini Saya membuatnya seperti pada gambar di bawah ini :

Untuk proses pembuatan tombol Insert Picturenya selesai.

B. Membuat Media Untuk Menempatkan Gambar (Picture)

 Selain membuat tombol untuk menyisipkan gambar (Insert Picture), kita juga harus membuat sebuah media sebagai tempat gambar (picture) nantinya. Dan media tersebut disini Saya juga menggunakan sebuah Shape, dan jenis shape yang Saya gunakan adalah Rectangle. Untuk membuatnya silahkan lakukan seperti pada sat kita membuat tombol Insert Picture di atas, yakni dengan cara klik pada menu Insert kemudian klik pada Shapes dan pilih Rectangle, kemudian sisipkan Shape tersebut sesuai dengan keinginan kita, pada contoh ini Saya menempatkannya di atas tombol Insert Picture yang sudah dibuat tadi, dan hasilnya seperti pada gambar di bawah ini :

 Selanjutnya adalah menai Shape yang kita jadikan media untuk gambar (picture) tersebut, caranya adalah : klik pada shaper (rectangle) kemudian pada kolom Name Box kita hapus nama rectangle menjadi foto kemudian tekan Enter pada keyboard, perhatikan gambar di bawah ini :

Langkah untuk membuat media gambar (picture) seudah selesai.

C. Menyisipkan Kode/Script Macro Insert Picture

Langkah berikutnya adalah menyisipkan kode/script Macro agar nantinya semua media yang sudah kita buat di atas bisa berfungsi seperti yang kita inginkan, dan langkah-langkah untuk menyisipkan kode/script Macro tersebut adalah sebagai berikut ini :

1. Silahkan copy/salin kode/script Macro di bawah ini :

Sub InsertPicture()
'https://blognyarifaisugiono.blogspot.com
Dim vFilePic
ChDir ActiveWorkbook.path
vFilePic = Application.GetOpenFilename _
("File (*.gif; *.jpg; *.bmp; *.tif; *.png),*.gif; *.jpg; *.bmp; *.tif; *.png", , "Sisipkan Foto")
'Jika Batal Pilih Foto
If vFilePic = False Then Exit Sub
'Tempel Gambarnya ke Shape pada Sheet Tujuan
ActiveSheet.Shapes("foto").Fill.UserPicture vFilePic
End Sub 

2. Masuk ke halaman Visual Basic (VBA Project) dengan cara klik pada menu Developer dan klik lagi pada Visual Basic, jika di lembar kerja Ms. Excel Sobat Blogger belum ada tab Menu Developer silahkan Sobat Blogger baca artikel Saya mengenai Cara Untuk Menampilkan Tab Developer Di Excel, atau bisa juga dengan menekan tombol kombinasi CTRL+F11 pada keyboard :

3. Di halaman Visual Basic (VBA Project) klik pada menu Insert kemudian klik pada Module :

4. Paste kode/Script Macro tadi kedalam Module yang baru kita sisipkan tadi, sehingga menjadi seperti pada gambar di bawah ini :

5. Tutup halaman Visual Basic Excelnya, dan kembali ke lembar kerja Ms. Excelnya.

D. Menerapkan Macro Ke Media 

Selanjutnya adalah menerapkan kode/script Macro ke media (tombol dan gambar) agar bisa berfungsi/berjalan seperti yang kita inginkan, dan berikut ini langkah-langkahnya :

1. Klik kanan pada tombol Insert Picture yang sudah kita buat, kemudian klik Assign Macro :

2. Klik/pilih pada InsertPicture dan klik OK, perhatikan gambar di bawah ini :

Jika sudah, jangan lupa simpan lembar kerja kita tadi dengan format *xlsm (Excel Macro-Enabled Workbook) :

Untuk melihat hasilnya silahkan klik pada tombol Insert Picture tadi, jika berhasil maka akan seperti pada gambar animasi di bawah ini :

 Jika ingin mengunduh file contohnya bisa mengunduhnya melalui link di bawah ini :

#Download Contoh Insert Picture Macro Excel#

Demikian mengenai Membuat Tombol Insert Picture Macro Di Excel, mudah-mudahan apa yang sudah Saya sampaikan pada kesmepatan kali ini bisa bermanfaat untuk kita semuanya. Sekian, terimakasih, dan selamat mencoba.

Salam Belajar.