从Excel的前身VISICALC算起的话,Excel已经有40岁了,到了不惑之年。Excel也经过N多个版本的发展,其图标也有一些变化。
但是做为一个Excel重度用户,每天对着这个Excel这个绿乎乎的图标,是否还是有些烦!
那么今天就给Excel来个变脸吧!其实也很简单,借助3个API函数,几句VBA代码将够了,天气这么热,就把图标换成西瓜吧,呵呵
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 lnghWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Private Const WM_SETICON = &H80
Sub ChangeICO()
Dim lngICO As Long
Dim lnghWnd As Long
lngICO = ExtractIcon(0, "e:\watermelon.ico", 0) '获取图标句柄
lnghWnd = FindWindow(vbNullString, Application.Caption) '获得EXCEL主窗口句柄
SendMessage lnghWnd, WM_SETICON, 1, lngICO '实现更改图标
End Sub
运行一下代码,立竿见影!