Excel图标也可以变脸

162 篇文章 16 订阅
13 篇文章 0 订阅

从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

运行一下代码,立竿见影!

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值