如何在加载时更改任务栏中的Excel图标

是否有任何选项可以更改excel任务栏中的excel图标？

免责声明：我通常不会回答OP没有表现出任何努力的问题，但这太有趣了，无法继续。但如果这个问题结束了，不要感到惊讶：）

是否有任何选项可以更改excel任务栏中的excel图标

有。为此，您必须使用3个API

ExtractIcon32

，

GetActiveWindow32

和

SendMessage32

要了解他们，请参阅。这是我最喜欢的API一站：）

---

非常感谢。我在Windows 10 64位上使用Office 365 32位，这对我不起作用。我能做些什么改变吗？在Office 2016（32位）Win 10（64位）中它对我很有用，非常感谢。我不知道为什么不为Office 365工作，但如果我找到了解决方案，我会将其发布给其他人。

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

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

Sub Sample()
    Dim myIcoFile As String
    Dim NewIco

    '~~> Change this to the relevant icon file
    myIcoFile = "D:\Temp\icons\CHARACT\$SIGN1.ico"

    NewIco = ExtractIcon32(0, myIcoFile, 0)

    SendMessage32 GetActiveWindow32(), &H80, 1, NewIco
End Sub