Insert Picture Dengan Macro (Versi 1) Plus Sample File

Hallo Sobat Blogger semuanya, selamat datang di blog Aplikasi Excelku. Pada kesempatan kali ini kembali Saya akan membagikan sebuah tutorial sederhana mengenai VBA Excel. Dan tutorial yang akan Saya bagikan melalui artikel/postingan ini adalah Cara Untuk Membuat Tombol Insert Picture Menggunakan Macro.

Kemudian mengenai judul artikel/postingan kali ini, kenapa harus ada kata versi 1? ya, karena nanti Saya juga akan memposting lagi mengenai Cara Membuat Tombol Insert Picture Menggunakan Macro dengan versi yang berbeda tentunya... 😁😁😁

Insert Picture Dengan Macro (Versi 1) Plus Sample File

Baiklah, sekarang masuk ke pokok pembahasan kali ini, yakni Membuat Tombol Insert Picture Menggunakan Macro didalam lembar kerja Ms. Excel tentunya,.. Dan berikut ini langkah-langkahnya :

1. Buka Aplikasi Ms. Excelnya 

2. Buat sebuah tombol yang akan kita gunakan untuk menyisipkan gambar (picture), dan pada pembahasan kali ini Saya membuat tombol tersebut menggunakan Shapes, tepatnya Rounded Rectangle, perhatikan gambar di bawah ini :

Silahkan letakkan dilembar kerja Ms. Excel kita, dan tentukan ukuran serta tampilannya sesuai dengan selera masing-masing, sehingga menjadi seperti contoh di bawah ini :

3. Sisipkan lagi sebuah Shape, kali ini adalah Rectangle, silahkan sisipkan kedalam lembar kerja Ms. Excelnya, untuk ukuran dalam contoh ini Saya membuatnya menjadi 3x4, caranya pada saat shape (rectangle) tersebut sudah kita sisipkan kedalam lembar kerja Excel kita, klik kanan pada shape tersebut, pilih Size and Properties. Ubah angka pada opsi Heigh menjadi 4 dan pada opsi Width ubah menjadi 3 kemudian akhiri dengan OK.

4. Ubah juga background dari shape (rectangle) tadi menjadi putih, dan juga ubah dari garis shape (rectangle) tersebut menjadi hitam, caranya klik pada shape (rectangle) tadi, kemudian akan muncul sebuah menu dengan nama Draeing Tools, untuk mengubah background klik pada shape fill, kemudian pilih warna yang kita inginkan :

Sedangkan untuk mengubah warna garisnya, silahkan klik pada opsi Shape Outline, kemudian pilih warna yang kita inginkan :

Langkah berikutnya adalah mengubah nama dari shape (rectangle) tadi, dari rectangle ubah menjadi foto, caranya klik pada shape (rectangle) kemudian pada kolom Name Box silahkan ketikkan foto kemudian tekan Enter pada keyboard, perhatikan baik-baik gambar di bawah ini :

Untuk langkah-langkah desain Saya rasa cukup seperti di atas, kemudian kita lanjutkan untuk proses menyisipkan Code Macro agar tombol Insert Picture tersebut bisa berjalan seperti yang kita inginkan. Silahkan Sobat Blogger Copy dan Paste Code Macro di bawah ini :

Sub InsertPicture()
'AplikasiExcelku.blogspot.com
Dim vFilePic
ChDir ActiveWorkbook.Path
vFilePic = Application.GetOpenFilename _
("Image : (*.gif; *.jpg; *.bmp; *.tif; *.png),*.gif; *.jpg; *.bmp; *.tif; *.png", , "Upload Logo Sekolah")
If vFilePic = False Then Exit Sub
ActiveSheet.Shapes("foto").Fill.UserPicture vFilePic
End Sub

3. Buka lembar kerja VBA Project Ms. Excelnya, caranya dengan klik pada Menu Developer, kemudian klik pada tombol Visual Basic, atau bisa juga dengan menekan tombol kombinasi Alt+F11 pada keyboard. Dan jika pada lembar kerja Ms. Excel Sobat Blogger belum ada Menu Developer, bisa membaca cara memunculkannya dengan KLIK DISINI :

 

4. Didalam halaman VBA Project, klik pada menu insert kemudian klik lagi pada opsi module :

5. Silahkan Paste/tempel Code Macro yang sudah copy tadi kedalam jendela module tadi, dan hasilnya akan seperti gambar di bawah ini :

6. Tutup jendela/lembar kerja VBA Projectnya, kemudian didalam lembar kerja Ms. Excel, kita klik kanan pada tombol insert picture yang tadi sudah kita buat, kemudian pilih Assign Macro, pilih InsertPicture dan akhiri dengan klik OK. Perhatikan gambar di bawah ini :

Langkah 1

Langkah 2

7. Langkah terakhir adalah silahkan simpan lembar kerja kita tadi, jangan lupa untuk Save As Typenya ubah menjadi Excel Macro-Enabled Workbook. Karena jika tidak kita simpan terlebih dahulu akan muncul error.

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

DOWNLOAD SAMPLE TOMBOL INSERT PICTURE MACRO

#Tombol_Insert_Picture_Excel

#Macro_VBA_Excel

Share :