MENAMBAHKAN ICON PADA TITLE BAR USERFORM EXCEL

Secara default pada properties UserForm yang ada pada VBA Excel tidak menyediakan fasilitas untuk menambahkan sebuah icon, Untuk itu kita harus menggunakan fungsi API untuk menambahkan icon pada title UserForm, dengan begitu kita baru bisa menampilkan icon pada title UserForm seperti gambar berikut ini:

Untuk bisa menambahkan Icon pada UserForm Excel, caranya adalah:

1. Buka aplikasi Microsoft Visual Basic for Application, bisa melalui tab Developer ataupun bisa juga dengan menekan tombol Alt+F11.
2. Tambahkan sebuah UserForm.
3. Tambahkan objek Image Control dari Toolbox pada UserForm.
4. Pada bagian properties Image Controlnya, pilih bagian Picture dan masukkan gambar berformat *.ico yang nantinya akan menjadi Icon pada UserForm.
   
5. Yang perlu diperhatikan adalah untuk gambar yang berformat *.ico tidak semua bisa di jadikan icon pada UserForm Excel, karena ada standar tertentu yang bisa digunakan, seperti menggunakan 16 Colors dan 256 Colors. Untuk yang lebih bagus bisa memakai yang 256 Colors dengan pixel 48 x 48.
6. Dan jika gambar yang dimasukkan bukan berformat *.ico maka icon yang ditampilkan tidak akan sesuai dengan gambar yang telah ditambahkan pada properties imagenya.

Langkah awal untuk menambahkan Icon pada UserForm sudah selesai, selanjutnya tinggal memasukkan script VBA atau fungsi APInya.

Setelah kita menambahkan sebuah UserForm dan Image Control selanjutnya adalah menambahkan script VBAnya, caranya adalah:

1. Klik kanan pada UserForm dan klik View Code.
2. Hapus semua code jika ada dan masukkan kode VBA berikut ini:

   Option Explicit
   
   Private Declare Function SendMessage Lib "user32" _
   Alias "SendMessageA" (ByVal hWnd As Long, _
   ByVal wMsg As Long, ByVal wParam As Long, _
   LParam As Any) As Long
   
   Private Declare Function FindWindow Lib "user32" _
   Alias "FindWindowA" (ByVal lpClassName As String, _
   ByVal lpWindowName As String) As Long
   
   Private Const WM_SETICON = &H80
   Private Const ICON_SMALL = 0&
   Private Const ICON_BIG = 1&
   
   Dim hWnd As Long
   
   Private Sub UserForm_Initialize()
   Image1.Visible = False
   
   hWnd = FindWindow(vbNullString, UserForm1.Caption)
   
   Call SendMessage(hWnd, WM_SETICON, ICON_SMALL, ByVal Image1.Picture.Handle)
   Call SendMessage(hWnd, WM_SETICON, ICON_BIG, ByVal Image1.Picture.Handle)
   End Sub
   

3. Klik pada UserForm dan tekan tombol F5 untuk menjalankan UserForm. Jika semua langkahnya sudah benar maka pada title UserForm akan tambahan Icon berupa gambar seperti yang sudah kita masukkan tadi pada object Image.
   

Biar lebih mudah lagi dalam mempelajarinya, bisa langsung mendownload contoh Filenya di halaman berikutnya (3).

Tweet