Tips Excel Menambahkan caption icon pada userform - Untuk membuat tampilan userform terlihat lebih professional kali ini saya akan membagikan tips bagaimana cara menambahkan caption berupa icon pada userform, icon ini nanti akan muncul dipojok kiri atas. Pada artikel sebelumnya saya juga sudah membagikan cara mengganti icon excel dengan kode macro dan Mengganti icon excel pada taskbar

MENGGANTI CAPTION ICON PADA USERFORM
Sebelumnya silahkan siapkan icon yang menurut anda paling bagus anda bisa mengunakan icon dalam format JPG, ICO, BMP saya sendiri menganjurkan agar memilih format Ico agar tampilan icon nanti terlihat transparant

Buka microsoft excel anda, masuk kemenu tab developper, insert kontrol Immage , pilih properties Immage, pada bagian Pictures silahkan insert icon yang telah anda siapkan sebelumnya

Masuk kejendela VBA dengan cara tekan tombol Alt lalu tekan tombol F11, insert Userform pada area kode userform silahkan ketikan deklarasi dibawah ini
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

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 DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long

Private Const WM_SETICON = &H80
Private Const ICON_SMALL = 0&
Private Const ICON_BIG = 1&
Tambahkan juga kode macro ini
Private Sub UserForm_Initialize()
Dim hWnd As Long
Dim lngRet As Long
Dim hIcon As Long
hIcon = Sheet1.Image1.Picture.Handle
hWnd = FindWindow(vbNullString, Me.Caption)
lngRet = SendMessage(hWnd, WM_SETICON, ICON_SMALL, ByVal hIcon)
lngRet = SendMessage(hWnd, WM_SETICON, ICON_BIG, ByVal hIcon)
lngRet = DrawMenuBar(hWnd)
End Sub

Sheet1.Image1.Picture : Icon terletak pada sheet1

Jangan lupa simpan workbook dengan format Xlsm, silahkan tes jalankan dan lihat hasilnya

Demikianlah cara Menambahkan caption icon pada userform, semoga dapat dipahami dengan baik, selamat pagi selamat beraktifitas
No comments