Membuat Tombol Animasi Di Userform Excel

 Hallo Sobat Blogger semuanya, selamat datang kembali di Blog Aplikasi Excelku, terimakasih Saya ucapakan kepada Anda yang sudah mengunjungi blog sederhana Saya ini. Pada kesempatan kali ini Saya akan membagikan sebuah tutorial sederhana mengenai VBA Excel, dan sesuai dengan judul artikel/postingan kali ini yang akan Saya bagikan adalah mengenai Membuat Tombol Animasi Di Userform Excel.

Dalam pembuatan tombol animasi ini diperlukan trik agar tombol yang ada didalam userform kita akan bergerak pada saat pengguna menggunakan aplikasi yang kita buat, dan berikut merupakan langkah-langkahnya :

Membuat Tombol Animasi Di Userform Excel

Seperti yang sudah Saya tuliskan di atas, diperlukan sebuah trik agar tombol yang ada didalam userform bergerak, dan tombol yang Saya buat dalam tutorial ini menggunakan gambar (image), dan gambar tersebut Saya buat dalam dua ukuran, kecil dan besar. Untuk ekstensi dari gambar tersebut yang menggunakan file gambar berekstensi *.jpg, dan berikut ini contoh gambarnya :

Nama file dari gambar tersebut juga Saya buat berbeda, gambar besar dan kecil, dengan maksud untuk mempermudah kita dalam membedakannya,. Kemudian untuk background dari gambar juga Saya buat sama dengan warna dari userform yang Saya gunakan (disini Saya menggunakan warna default/bawaan). Untuk mengedit gambar silahkan Sobat Blogger gunakan Aplikasi Editing Gambar seperti Adobe Photoshop atau yang lainnya.

Untuk gambar yang akan kita jadikan tombol sudah selesai, sekarang lanjut untuk proses pembuatan tombol animasi didalam userform Excelnya, dan seperti berikut ini tahapannya :

1. Pada lembar kerja Ms. Excel tekan kombinasi tombol Alt+F11, sisipkan sebuah userform :

 

2. Sisipkan Image melelui jendela Toolbox, perhatikan gambar di bawah ini :

Sesuaikan ukuran Image/gambar dengan keinginan, pada contoh akan menjadi seperti pada gambar di bawah ini :

3. Ubah nama Image1 menjadi GbrKecil, melalui Properties yang letaknya berada di samping kiri, perhatikan gambar di bawah ini :

Ubah juga borderstyle menjadi 0-frmBorderStyleNone, kemudian pada opsi Picture silahkan klik dan pilih gambar yang sudah disiapkan untuk menjadi tombol animasi, disini yang Saya sisipkan pertama kali adalah gambar kecil, dan pada opsi PictureSizeMode ubah menjadi 1-frmPictureSizeModeStretch :

Maka hasilnya akan seperti pada gambar di bawah ini :

4. Copy Image1 (GbrKecil) dengan cara menekan tombol kombinasi Ctrl+C dan paste/tempel dengan cara menekan tombol kombinasi Ctrl+V, ubah namanya menjadi GbrBesar, dan pada opsi Picture silahkan klik dan pilih gambar yang akan kita jadikan tombol (Gambar Besar), selanjutnya posisikan gambar kedua tadi agar menutupi posisi gambar yang pertama (Gambar kecil), sehingga seperti pada gambar di bawah ini :

 

Sekarang lanjut untuk proses meyisipkan kode Macro agar animasi tombolnya bisa berjalan seperti yang kita inginkan, dan seperti berikut ini prosesnya :

Copy kode Macro di bawah ini kedalam userform/klik dua kali pada userform :

Private Sub GbrKecil_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'https://aplikasiexcelku.blogspot.com
    Me.GbrKecil.Visible = False
    Me.GbrBesar.Visible = True
End Sub

 

Private Sub GbrBesar_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Me.GbrKecil.Visible = True
    Me.GbrBesar.Visible = False
End Sub

 

Private Sub UserForm_Initialize()
'https://aplikasiexcelku.blogspot.com
  Me.GbrBesar.Visible = False
End Sub

Untuk melihat hasilnya silahkan tekan tombol F5 pada keyboard atau bisa klik tombol berlogo segita pada lembar project VBA Ms. Excel, maka seharusnya akan seperti pada gambar animasi di bawah ini :

Demikian tutorial sederhana mengenai Membuat Tombol Animasi Di Userform Excel, mudah-mudahan apa yang sudah Saya sampaikan pada kesempatan kali ini bisa bermanfaat untuk kita semuanya. Sekian, terimakasih, dan selamat mencoba.

Download Sample Tombol Animasi Userform Excel

#AnimatedButtonVBA

#AplikasiVBAExcel

#MacroVBA

#AplikasiExcelku

Share :