Cara Membuat imageMso dengan gambar sendiri
Daftar Isi
Dengan gambar atau icon tersebut sebuah Ribbon Excel yang kita buat jadi lebih terlihat menarik dan berbeda dengan yang dibuat orang lain.
Untuk menjadikan gambar pilihan kita menjadi ImageMso pada Ribbon Excel caranya pun tidak lah sulit alias mudah (bagi saya pribadi hehehe) dan bagi anda juga tentunya, yaitu:
- Persiapkan gambar atau icon yang ingin dibuat imageMso bisa berupa file *.ico, *.jpg, *.png, *.bmp dan *.tif. seperti gambar dibawah ini contoh gambar yang akan saya gunakan untuk membuat Ribbon Excel.
- Pastikan juga komputer yang kita gunakan sudah di install program Custom UI Editor for Microsoft Office, jika belum anda bisa mendownloadnya terlebih dahulu disini.
- Sebagai latihan saya akan mengubah icon pada file Latihan Custom Ribbon yang bisa di donwload disini. Gambar ribbonnya seperti ini.
- Jalankan Aplikasi Custom UI Editor for Microsoft Excel, kemudian buka File Latihan Custom Ribbon v2.xlsm yang sudah di download sebelumnya, atau jika anda ingin membuat File Excel sendiri juga bisa, Silahkan buka Filenya menggunakan Custom UI Editor.
- Selanjutnya klik menu Insert Icons atau bisa juga melalui menu Insert --> Icons.
- Masukkan semua icon atau gambar yang ingin di buat imageMso. Jika berhasilnya akan tampak gambar atau icon yang tadi kita masukkan seperti gambar di bawah ini:
- Selanjutnya ubah script xml imageMso = "HappyFace" menjadi image = "Smile", dan imageMso = "SadFace" menjadi image="Sad" dan tambahkan lagi script button dengan image="Love"
Jadi intinya untuk menjadi gambar atau icon yang kita upload tadi penulisan script xmlnya menggunakan image = "nama_icon" bukan imageMso = "nama_icon".
Dan yang perlu di ingat lagi penulisan nama gambar atau icon harus sama persis alias case sensitive, misal Smile tidak boleh ditulis smile atau smiLe dan sebagainya.
- Jika sudah selesai, Silahkan buka file yang tadi telah di modifikasi Ribbonnya dengan Aplikasi Microsoft Excel, Kemudian tekan tombol Alt + F11 untuk membukan editor Microsoft Visual Basic for Application.
- Tambahkan sebuah Module dan masukkan script vba berikut ini:
Sub Senyum(control As IRibbonControl) Sheets("Senyum").Select MsgBox "Sheet : Senyum is activated", vbInformation End Sub Sub Sedih(control As IRibbonControl) Sheets("Sedih").Select MsgBox "Sheet : Sedih is activated", vbInformation End Sub Sub Cinta(control As IRibbonControl) Sheets("Cinta").Select MsgBox "Sheet : Cinta is activated", vbInformation End Sub
- Jika tidak ada yang salah maka hasilnya kurang lebih akan tampak seperti ini, hanya berbeda pada isi pesannya saja:
Lampiran
Latihan Custom Ribbon v3
Excel Macro-Enabled Workbook (xlsm)
Contoh lain cara membuat imageMso dengan gambar sendiri, bisa Anda download disini, Selamat mencoba dan Semoga Bermanfaat...