DigiMagz.Net - Setelah sebelumnya Saya mempublikasikan artikel mengenai Membuat Tombol Print Preview VBA Excel, pada kesempatan ini kembali Saya akan berbagi (sharing) mengenai Cara Membuat Tombol Insert Picture Menggunakan Macro Di Excel, seperti yang sudah kita ketahui bersama, pada aplikasi Excel kita biasa menyisipkan (insert) gambar ke dalam lembar kerjanya menggunakan menu Insert. Namun, bila kita menginginkan cara lain kita bisa memanfaatkan fitur Macro VBA yang ada di dalam aplikasi Excel, terutama bagi kita yang suka membuat aplikasi berbasis Excel, pastinya ini akan menjadi nilai plus dari aplikasi yang kita buat nantinya.
Sama seperti pada artikel Saya yang sebelumnya, untuk membuat sebuah tombol Insert Picture ini kita bisa menggunakan shape yang nantinya kita jadikan tombol. Seperti apa prosesnya? berikut merupakan peroses dalam Membuat Tombol Insert Picture Menggunakan Macro Di Excel :
1. Membuat Tombol Menggunakan Shape
Untuk lebih simpelnya Saya menggunakan shape sebagai tombol insert picture (gambar), untuk shape-nya sendiri disini Saya memilih menggunakan Rounded Rectangle dan caranya adalah sebagai berikut :
a. Klik menu Insert, kemudian pilih/klik shapes, dan klik/pilih pada Rounded Rectangle :
b. Desain tombol menggunakan Rounded Rectangle sesuai dengan yang kita inginkan, pada contoh ini Saya membuat seperti pada gambar di bawah ini :
2. Membuat Objek Untuk Menempatkan Gambar (Picture)
a. Pada contoh ini Saya akan menempatkan gambar (picture) pada sebuah objek, dan untuk objeknya sendiri Saya masih menggunakan Shape, untuk tipe Shape-nya sendiri Saya menggunakan Rectangle. Caranya sama dengan menyisipkan Rounded Rectangle di atas, dan Saya menempatkan Rectangle ini persis di atas tombol Insert Picture yang sudah kita buat sebelumnya. Dan Hasilnya seperti pada gambar di bawah ini :
b. Berinama Rectangle dengan nama "Gambar" dengan cara klik pada Rectangle kemudian pada Name Box kita tuliskan "Gambar" kemudian tekan tombol Enter pada keyboard
Cek/periksa apakah nama dari Rectangle sudah berubah apa belum, caranya klik pada Rectangle kemudian lihat pada Name Box, jika namanya sudah tertulis "Gambar" berarti kita sudah berhasil mengubah nama/rename dari Rectangle tadi.
3. Kode Macro Untuk Insert Picture
Berikutnya adalah menyisipkan kode/script Macro untuk Insert Picture :
a. silahkan Sobat Copy/salin kode/script Macro di bawah ini :
Sub InsertPicture()
'https://www.digimagz.net
'Prosedur Untuk Insert Picture
Dim vFilePic
ChDir ActiveWorkbook.path
vFilePic = Application.GetOpenFilename _
("File (*.gif; *.jpg; *.bmp; *.tif; *.png),*.gif; *.jpg; *.bmp; *.tif; *.png", , "Upload Logo Sekolah")
'Jika Batal Pilih Picture
If vFilePic = False Then Exit Sub
'Tempel Picture ke Shape pada Sheet Tujuan
ActiveSheet.Shapes("Gambar").Fill.UserPicture vFilePic
'https://www.digimagz.net
End Sub
b. Buka lembar kerha Visual Basic dengan cara klik pada tab menu developer kemudian klik pada visual basic, atau bisa juga menggunakan tombol kombinasi Alt+F11 pada keyboard
c. Di dalam lembar kerja Visual Basic kita klik menu Insert kemudian klik/pilih Module
d. Silahkan Paste/tempel kode/script Macro di atas ke dalam Module yang baru kita sisipkan tadi
e. Buka kembali lembar kerja Excel kita, kemudian klik kanan pada Tombol Insert Picture yang sudah kita buat dan pilih Assign Macro
f. Di dalam jendela Assign Macro kita klik pada InsertPicture kemudian akhiri dengan klik tombol OK
Silahkan tes, apakah Tombol Insert Picture tersebut sudah berfungsi seperti yang kita harapkan atau belum, seharusnya jika Sobat Blogger mengikuti langkah-langkah di atas dengan benar, maka Tombol Insert Picture tersebut akan berfungsi sesuai dengan apa yang kit aharapkan.
Dan jangan lupa simpan (save) lembar kerja kita tadi dalam format *xlsm agar Macro yang kita sisipkan ke dalam lembar kerja tadi bisa berfungsi dengan baik. Demikian 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 jangan lupa untuk mengunjungi terus DigiMagz untuk mendapatkan info-info menarik lainnya. Selamat mencoba.