Membuat Tombol Insert Picture Menggunakan Macro Di Excel

 Hallo Sobat Blogger semuanya, selamat datang kembali di Warung Grombyang. Terimakasih Saya ucapkan kepada Anda semuanya yang sudah mengunjungi blog sederhana Saya ini, pada kesempatan ini kembali Saya akan berbagi sebuah tutorial sederhana mengenai Macro VBA Excel. Dan sesuai dengan judul artikel ini, yang akan Saya bagikan adalah mengenai Membuat Tombol Insert Picture Menggunakan Macro Di Excel. Dan berikut merupakan penjelasan lengkapnya:

Langkah-Langkah Dalam Membuat Tombol Insert Picture Macro

Pada tutorial kali ini, kita membutuhkan 2 (dua) komponen yang nantinya bisa kita gunakan, yaitu:

1. Tombol (untuk Insert); dan
2. Shape (untuk media tempat gambar/picture).

Membuat Tombol 

1. Untuk mempermudah, kita akan menggunakan sebuah shape untuk kita jadikan tombolnya, dan jika Sobat Blogger menggunakan Excel 2019 caranya adalah: klik pada menu Insert kemudian pilih Illustrations lanjutnkan dengan memilih shape yang ingin kita gunakan, dan pada contoh ini Saya menggunakan Rectangle: Rounded Corner dan seperti hasilnya:

2. Klik pada tombol tersebut, kemudian pada Name Box ubah namanya menjadi Tombol Insert dan tekan ENTER pada keyboard:

Untuk tahap pembuatan tombol seudah selesai.

Menyisipkan Shape Untuk Media Gambar/Picture

1. Sama seperti pada saat kita membuat tombol di atas, kita sisipkan sebuah shape, namun shape yang kita pilih adalah Rectangle;

2. Kemudian silahkan ubah warna fill-nya menjadi putih dan garis tepi dari shape rectangle tersebut menjadi warna hitam, atau bisa disesuaikan dengan keinginan masing-masing. Pada contoh ini Saya mengubahnya menjadi warna hitam;

3. Ubah nama dari rectangle tadi menjadi Foto melalui Name Box seperti pada saat mengubah nama tombol insert di atas;

4. Tempatkan shape tadi di atas tombol yang sudah kita buat sebelumnya, sehingga menjadi seperti pada gambar di bawah ini:

Menyisipkan Kode/Script Macro Insert Picture

1. Buka lembar kerja Visual Basic (VBA) Excel dengan cara menekan tombol kombinasi Alt+F11 pada keyboard;

2. Di dalam lembar kerja Visual Basic kita sisipkan sebuah module, caranya klik pada menu insert kemudian pilih Module;

3. Copy kode/script Macro di bawah ini dan paste ke dalam module tadi:

Sub InsertPicture()
'https://warunggrombyang.my.id
Dim vFilePic
ChDir ActiveWorkbook.Path
vFilePic = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif; *.png),*.gif; *.jpg; *.bmp; *.tif; *.png", , "Pilih Foto Siswa")
If vFilePic = False Then Exit Sub
ActiveSheet.Unprotect
ActiveSheet.Shapes("Foto").Fill.UserPicture vFilePic
'https://warunggrombyang.my.id
End Sub

Sehingga menjadi seperti pada gambar di bawah ini:

4. Tutup lembar kerja Visual Basic, dan kembali ke lembar kerja Excel. Kemudian klik kanan pada tombol yang sudah kita but dan pilih Assign Macro:

5. Selanjutnya, di dalam jendela Assign Macro klik pada InsertPicture dan klik OK:

Sekarang simpan (Save) dokumen/file tadi dan jangan lupa simpan dalam format *.Xlsm

Ingat ya, simpan terlebih dahulu agar Macro-nya berjalan.

Mungkin hanya itu saja artikel mengenai Membuat Tombol Insert Picture Menggunakan Macro Di Excel, mudah-mudahan apa yang sudah Saya sampaikan pada kesempatan ini bisa bermanfaat untuk kita semuanya, sekian, terimakasih dan selamat mencoba.