Tips Excel Pro Mengganti icon excel pada taskbar - Tips ini sejalan dengan tips yang saya tulis sebelumnya yaitu mengganti icon excel dengan kode macro, pada tulisan saya sebelumnya icon hanya mengambil dari icon aplikasi lain, untuk kali ini saya akan memberikan cara merubah mengganti icon excel dengan gambar sendiri plus mengganti icon yang tampil pada taskbar

I am trying to give my Excel UserForm application a task bar icon as on load it hides the Excel workbook which make the form(s) easy to lose behind other windows. I have a .png or an .ico file which I would like to use as the icon. The image can either be just in the folder with the Excel file but if it could be embedded some way into the workbook that would be preferable.
Thanks for any help!


MENGGANTI ICON EXCEL
Sebelumnya silahkan siapkan icon yang menurut anda paling bagus untuk mereplace icon defauld excel, dan berikut ini caranya Mengganti icon excel pada taskbar

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, buat module untuk membuat deklarasi dan mengetikan kode macro dibawah ini

Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) _
As Long

Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" _
(ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long

Const WM_SETICON = &H80
Const ICON_SMALL = 0&
Const ICON_BIG = 1&
Sub RubahIconExcelPro()
MsgBox "Icon excel telah diganti sesuai permintaan excel pro"
Call Ganti_Icon_ExcelPro(Sheet1.Image1.Picture.Handle)
End Sub

Sheet1.Image1.Picture memanggil icon yang anda insert pada langkah pertama

Sub KembaliKeIconJadul_excelPro()
MsgBox "Excel pro balik lagi ke icon standart"
Call Ganti_Icon_ExcelPro
End Sub
Private Sub Ganti_Icon_ExcelPro(Optional ByVal hIcon As Long = 0&)
Dim hWnd As Long
Dim lngRet As Long
hWnd = FindWindow("XLMAIN", Application.Caption)
lngRet = SendMessage(hWnd, WM_SETICON, ICON_SMALL, ByVal hIcon)
lngRet = SendMessage(hWnd, WM_SETICON, ICON_BIG, ByVal hIcon)
lngRet = DrawMenuBar(hWnd)
End Sub


Selesai membuat module jangan keluar dulu dari jendela VBE, lanjutkan menulis kode macro dalam Thisworkbook

Private Sub Workbook_Open()
GantiIconExcelpro
End Sub

Sampai disini sudah selesai cara Mengganti icon excel pada taskbar, silahkan dicoba jika icon pada taskbar tidak berubah anda perlu melakukan setelan tambahan, caranya :
Arahkan pointer pada taskbar, klik kanan mouse anda, pilih setting, pada menu setting cari Combine Taskbar Buttons, pilih pada menu dropdown When Taskbar is Full



Selesai dan demikianlah Mengganti icon excel pada taskbar, semoga bermanfaat bagi saya dan anda semua, selamat rehat selamat malam dan selamat menyambut hari senin
1 comment
Icank
Icank

Sy sudah coba tapi error...untuk kode sheet1.image1, mhon bantuannya!!!

Reply