作者：绿色风
分类：
时间：2022-08-17
浏览：136
楼主
kevinchengcw |
Q: 如何用vba代码修改桌面Excel程序快捷方式的图标？
A: 代码如下：- Sub test()
- Dim DeskTop$, FN$, Found As Boolean
- Found = False '初始化查找变量
- With CreateObject("wscript.Shell") '创建WSH项目用于进行相关操作
- DeskTop = .regread("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Desktop") '从注册表中读取桌面位置
- FN = Dir(DeskTop & "\*.lnk") '枚举桌面快捷方式
- Do While FN <> ""
- If LCase(.createshortcut(DeskTop & "\" & FN).targetpath) Like "*office" & Split(Application.Version, ".")(0) & "*\excel.exe" Then '如果快捷方式目标指向当前版本的excel主程序,则
- With .createshortcut(DeskTop & "\" & FN)
- .IconLocation = Environ("systemroot") & "\explorer.exe,14" '将图标修改为explorer.exe程序的第15个图标(0为第一个)
- .Save '保存修改
- End With
- Found = True '查找变量设置为直(即找到并修改完成)
- Exit Do '跳出循环
- End If
- FN = Dir '到下一个文件
- Loop
- End With
- If Found = True Then '判断查找结果,显示相关信息
- MsgBox "修改完成"
- Else
- MsgBox "桌面未找到excel快捷方式"
- End If
- End Sub
|
2楼
bishunbiao |
打造个性化桌面， |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一