Tips Excel Pro Mengganti icon excel dengan kode macro - Menurut pengamatan saya pribadi icon yang digunakan microsoft untuk aplikasi microsoft excel sangat mirip dengan ketupat dimana berbentuk segi empat dan didominasi warna hijau yang mirip daun kelapa, icon excel ini tidak banyak berubah meski microsoft excel sudah sampai pada versi 2016

Bagi anda yang bosan dengan icon microsoft excel yang begitu begitu saja, kali ini saya akan bagikan cara merubah dan mengganti icon excel dengan menggunakan kode macro


MENGGANTI ICON EXCEL
Ada dua cara yang bias anda pilih guna mengganti icon pada Microsoft excel, silahkan simak uraianya dibawah ini


Declare Function GetActiveWindow32 Lib "user32" Alias _
"GetActiveWindow" () As Integer

Declare Function SendMessage32 Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long

Declare Function ExtractIcon32 Lib "SHELL32.DLL" Alias _
"ExtractIconA" (ByVal hInst As Long, _
ByVal lpszExeFileName As String, _
ByVal nIconIndex As Long) As Long

Tambah kodde macro dibawah ini

Sub GantiIconExcelpro()
On Error Resume Next
Dim Icon&
Const NewIcon$ = "explorer.exe"

Icon = ExtractIcon32(0, NewIcon, 0)
SendMessage32 GetActiveWindow32(), &H80, 1, Icon
SendMessage32 GetActiveWindow32(), &H80, 0, Icon
End Sub

Const NewIcon$ = "explorer.exe" icon excel akan diganti dengan icon yang digunakan aplikasi explorer, silahkan ganti icon ini sesuai keinginan anda misalnya ganti dengan icon Kalkulator

Langkah terakhir cara Mengganti icon excel dengan kode macro adalah panggil module tadi saat workbook aktif, yaitu tempatkan kode macro dibawah ini kedalam thisworkbook
Private Sub Workbook_Open()
GantiIconExcelpro
End Sub
Cara kedua Mengganti icon excel - Mohon maaf ada gangguan teknis silahkan kembali lagi beberapa saat lagi ....


Silahkan dicoba, dan demikianlah cara Mengganti icon excel dengan kode macro, semoga bermanfaat
No comments