Membuat Tombol Insert Gambar Menggunakan ActiveX Control Pada Ms. Excel 2007

Assalamu'alaikum Wr. Wb. Salam sejahtera untuk kita semua, selamat datang di Blog Sederhana Saya ini (Mas Operator). Pada kesempatan kali ini Saya kembali akan memberikan sebuah tutorial sederhana mengenai cara membuat timbol insert gambar Pada Ms. Excel 2007 menggunakan ActiveX Control.

Apa itu activeX control? activex control merupakan sebuah fitur yang dimilki oleh Ms. Excel, yang sebuah tools dimana kita bisa menggunakannya dengan memadukan scrypt Macro. ActiveX Control ini berada pada deretan ribbon menu Ms. Excel, tepatnya berada pada Tab Menu Developer, Tab Menu Developer ini tidak secara otomatis muncul pada lembar kerja Ms. Excel 2007 kita. Kita harus mensettingnya terlebih dahulu supaya Tab Menu Developer tersebut muncul pada Ribbon Menu Ms. Excel 2007 kita. Dan cara untuk memunculkan Tab Menu Developer Pada Ms. Excel 2007, bisa Anda baca melalui postingan Saya yang terdahulu, bisa Anda klik disini untuk membacanya.

Tuturoial sederhana ini Saya dapatkan dari hasil searching di Internet, kemudian saya praktekkan secara langsung, kemudian Saya membagikannya kembali melalui Blog Sederhana Saya ini. Dan berikut merupakan langkah-langkah cara membuat tombol insert picture menggunakan ActiveX Control pada Ms. Excel 2007 :

1. Buka Aplikasi Ms. Excel 2007

2. Klik Tab Menu Developer, kemudian Klik Insert, pada pilihan ActiveX Control klik Image (untuk menyisipkan Gambar) :

Klik dan drag pada lembar kerja Ms. Excel 2007 dan sesuaikan ukuran yang diinginkan.

Tambahan :

Agar gambar yang kita sisipkan nantinya ukurannya bisa pas/sesuai dengan picture box tersebut, kita harus mensettingnya terlebih dahulu, berikut caranya :

Klik kanan pada picture box, dan pilih/klik Properties :

Pada jendela Properties, cari opsi PictureSizeMode, dan ubah menjadi fmPictureSizeModeStretch :

kemudian klik close

langkah tersebut merupakan langkah supaya gambar yang kita sisipkan ukurannya bisa sesuai dengan picture box.

3. Buat sebuah tombol insert dengan cara Klik Tab Menu Developer kemudian pada ActiveX Control pilih Command Button :

letakkan tepat di bawah picture box yang tadi.

Ubah teks pada command button menjadi Insert Foto dengan cara klik kanan pada Command Button, kemudian pilih Properties :

Pada jendela Properties, cara opsi Caption dan hapus teks CommandButton1 menjadi Insert Foto, kemudian Close jendela Propertiesnya :

Maka akan seperti gambar di bawah ini hasilnya :

4. Masih pada Command Button (Tombol Insert Foto), sekarang klik kanan pada tombol Insert Foto tadi pilih View Code, kemudian copy dan paste pada jendela view code tadi :

Private Sub CommandButton1_Click()

On Error Resume Next

Dim Filter As String, Title As String, FileX As String

Dim SourceFile, DestinationFile

X.SetFocus

Filter = "JPG Image Files Only(*.jpg),*.jpg,"

Title = "Silahkan Pilih Logo"

FileX = Application.GetOpenFilename(Filter, , Title)

Sheets("sheets1").Image1.Picture = LoadPicture(FileX)

Image1.Picture = LoadPicture(FileX)

End Sub

Ingat, harus sama persis seperti gambar di atas :D

Tutup jendela tadi, kemudian pada lembar kerja Ms. Excel dan silahkan klik tombol Insert Foto, jika berhasil maka akan seperti gambar animasi di bawah ini :

Terakhir silahkan simpan file dengan format Excel Macro - Enable Workbook

Demikian pembahasan mengenai cara membuat tombol insert picture menggunakan ActiveX Control pada Ms. Axcel 2007 terimakasih dan semoga bermanfaat. Wassalamu'alaikum Wr. Wb.

Salam Mas Operator!!!

Share :