Membuat Animasi Tombol di Userform VBA Excel

BismillahiRahmaniRahim.

Assalamualaikum Wr. Wb.

Apa itu animasi tombol Userform di Excel?
ada baiknya kita lihat dulu contoh dibawah ini

Bagaimana cara membuatnya?

Sebenarnya hanya membuat antrian image yang sedikit menyita ketelitian dan boleh dikatakan sebagai cara yang susah-susah gampang, tergantung pemahaman kita, dan mungkin hal ini jarang dibahas oleh teman-teman di Grup. Baiklah kita langsung saja ke TKP cara pembuatannya dan bahan-bahan yang diperlukan untuk persiapan pembuatannya.

Bahan-bahan yang diperlukan :

• Gambar logo tombol atau icon tombol seperti (Save, Back, Delete, Open, Edit, dan sebagainya) yang berekstensi .jpg .bmp .png dapat dengan mudah didapatkan di om Google untuk kita racik ulang sesuai keinginan menggunakan excel dan paint, hehehe pasti semua komputer punya 2 software itu.
• File Excel enabled macro .xlsm atau .xlsb (buka excel baru kemudian save as ke macro enabled atau binary).
• Secangkir Kopi, sebungkus kacang atau snack, salinan tutorial ini, kesabaran dan keinginan yang teguh anda untuk membuatnya hehehe

Tahap selanjutnya, Persiapan pembuatan :

• Download logo atau icon tombol yang anda inginnkan, sebagai contoh dalam artikel ini saya download logo SAVE, BACK, DELETE dan ADD dalam bahasa kita biasa kita sebut SIMPAN, KEMBALI, HAPUS dan TAMBAH, seperti contoh gambar dibawah ini.

       

• Langkah berikutnya adalah menyesuaikan warna dasar userform dengan background gambar yang kita download tadi menggunakan Microsoft Excel, hehehe sederhana saja.

1. Buka Excel dan insert gambar yang anda donwload tadi di worksheet
2. Blok Cell ukuran satu layar kemudian Fill dengan warna abu-abu yang sesuai warna dasar userform di VBA atau warna dasar yang anda inginkan
3.          
4. Pilih salah satu gambar kemudian Format gambar menjadi transparan, sehingga warna latar abu-abu terlihat di sekitar gambar
5. 
6. Lakukan format shadow dan bevel gambar agar terlihat 3D.      
7.  
8. Sekarang kita membuat file gambar dasar berekstensi .jpg untuk insert ke image userform dengan cara PrintScreen (tekan tombol Keyboard di kanan atas PrtnScr) pada Worksheet yang berisi gambar yang telah kita setting shadow tadi kemudian pastekan di PAINT, lalu crop / potong persegi sedimikian rupa hingga bayangan juga gambar juga ikut.
9.   
10. hasil file tadi sudah siap kita gunakan di Image Userform
11. Sekarang kita buka file excel macro kita yang tadi dan tekan Alt F11 hingga muncul Jendela VBA kemudian insert Userform. kemudian klik Userform dan tekan tool di menu bar kemudian Insert Image (letakkan pada posisi yang diinginkan.
12. Setting Image di Userform (tetapi kita pahami dahulu MenuBar)

• klik image kemudian klik properties di menu diatas dan isikan gambar dari file, setting mode strech agar gambar menyesuaikan lebar image userform dan hilangkan garis pinggir
• copy image (klik image dan Ctrl V) maka akan ada 2 gambar yang sama tetapi kita buat salah satunya lebih kecil.
• beri nama masing-masing image di properties misal (gbrkecil dan gbrbesar) agar mudah dalam koding VBA kemudian Gambar yang lebih besar kita setting Visible=False pada Properties

• Susun/bertumpuk kedua gambar (gambar yang kecil di bawah, gambar yang lebih besar diatasnya (tinggal Ctrl X gambar yang besar kemudian Ctrl V).
• Insert satu lagi image baru dengan properties seperti gambar

• Klik dua kali userform dan masukkan kode berikut.

                    Private Sub gbrControl_Click()

                                MsgBox "anda telah membuat animasi tombol control di userform", , "?"

                          End Sub

                         Private Sub gbrControl_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

                               Me.gbrbesar.Visible = True

                         End Sub

                         Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

                              Me.gbrbesar.Visible = False

                         End Sub

• kenudian ke worksheet dan insert ActiveX control CommandButton1, masukkan kode seperti gambar kemudian save dan tekan kembali segitiga EditMode di Bar atas hingga normal.

• selesai, sekarang kita tinggal mengujinya dengan menekan CommandButton1 hingga muncul userform1 dan coba anda gerakkan cursor ke tombol dan jauhkan maka akan terbentuk animasi dan saat di klik akan muncul pesan seperti kode tadi.

sekian cara membuat animasi tombol di userform VBA Excel

untuk download contoh file tombol tunggal disini, dan untuk  file contoh beberapa tombol disini. lakukan pencarian dengan keyword judul artikel.

Jika ada kesulitan silahkan tinggalkan komentar. Terima kasih atas kunjungannya

Salam Excel

Sobat Excel