Replace Mouse Icon With Custom - Cara kustom icon pada mouse dengan gambar icon sendiri pada Excel VBA . Ternyata banyak juga yang googling tentang cara mengganti icon mouse dengan keyword pencarian kurang lebih seperti ini :
+ Cara mengganti Icon mouse excel VBA
+ Cara mengganti icon mouse dengan gambar excel VBA
+ Cara Custom mouse icon dengan gambar excel VBA
+ Cara meruban Icon Mouse excel VBA
Untuk memulai artikel ini mari buka microsoft Excel , buat workbook baru, save as dengan enabled macro, masuk kejendela VBE dengan menekan tombol Alt + F11, insert Userform, Insert Commandbutton klik sekali Commandbutton lalu lihat properties yang terletak disebalah kiri, cari pada jendela properties Mouse Icon dan Mouse Pointer
Yang akan kita lakukan adalah mengganti value Mouse Icon dengan icon yang telah kita siapkan, jika anda belum mempunyai icon yang compatible silahkan download iconya disini. Icon yang compatible adalah jenis gambar dengan format ICO.
Jika sudah mempunyai icon yang compatible langsung saja simpan dan siapkan. Selanjutnya lihat properties Mouse Pointer, pada properties Mouse Pointer terdapat banyak opsi yang disediakan antara laian :
+ Mouse Pointer App Starting
+ Mouse Pointer Arrow
+ Mouse Pointer Cross
+ Mouse Pointer Default
+ Mouse Pointer Help
+ Mouse Pointer Hour Glass
+ Mouse Pointer Beam
+ Mouse Pointer No Drop
+ Mouse Pointer Size All
+ Mouse Pointer Size NEWS
+ Mouse Pointer Size NS
+ Mouse Pointer Size NWSE
+ Mouse Pointer Size WE
+ Mouse Pointer Up Arrow
+ Mouse Pointer Custom
Jangan pernah berpikir saya hafal value Mouse Pointer apalagi sampai bertanya makna yang terkandung didalamnya #Njabor saya tidak bisa menerangkan satu persatu .
Diatas telah saya sebutkan Properties Mouse Pointer yang lumayan banyak namun yang kita butuhkan hanya satua yaitu Mouse Pointer Custom, mungkin karena ada kata Custom'nya jadi pas sekali dengan apa yang kita bahas untuk saat ini
Oke kita lanjutkan, masih dijendela propertoies commandbutton, pilih Value Mouse Pointer Custom, dan pada Mouse Icon pilih atau masukan gambar yang anda download tadi. Sampai disini anda benar benar sudah bisa mengganti icon mouse atau mosue icon ( bahasa kebalik balik ) untuk membuktikanya sekarang tekan F5 pada keybord anda, lalu arahkan pointer diarea tombol Commandbutton, jika anda melakukan tutorial ini seperti yang saya sebutkan diatas pasti icon pad mouse anda akan berubah sesuai dengan icon gambar yang anda download diatas, jika gagal coba ulangi lagi
Saat saya menggunakan kode macro untuk mengganti icon pada mouse hasilnya kurang bagus dan cenderung bikin patah hati, entahlah ada yang kurang atau bagaimana soalnya saya hanya coba coba saja, jika anda penasaran dengan kode macro yang saya gunakan saya akan ketikan lagi
Asumsi saya anda sudah membuat project dengan userform dan Commandbutton
Karena kita memakai kode macro maka kita harus upload dulu Icon hasil download tadi, jadi tambahkan satu kontrol Immage pada userform
Masukan kode dibawah ini kdalam Usrform
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.MouseIcon = Image1.Picture
CommandButton1.MousePointer = fmMousePointerCustom
End Sub
CommandButton1.MouseIcon = Image1.Picture
CommandButton1.MousePointer = fmMousePointerCustom
End Sub
Coba tes hasilnya, pasti anda akan lebih menyukai apa yang saya sebutkan pada kesempatan pertama dari pada memakai kode macro ini, okelah demikainlah cara mengganti icon pada mouse, mohon maaf untuk artikel kali ini tidak ada sampel untuk didownload dikarenakan menurut saya caranya cukup mudah. Semoga artikel kali ini bermanfaat , jika anda kesulitan download file sampel silahkan hubungi kami dengan mengisi kolom komentar dibawah, gabung di grup Excel Pro facebook follow IG kami atau Like fanpage Iparegan - Excel Pro