別のブックを開いたときにExcelアイコンを変更できない

Question

次のコードを使用しています。Excelアイコンを自分のアイコンに変更しています。

私はそれだけでブックを開く限り完全に動作しますが、別のブックが既に開かれるとすぐに、コードはそれ以上効果がないようです。 これは、Excelが完全に閉じられている場合にのみ機能し、ブックでコードを開きます。 別のブックを開いたり、あるブックから別のブックに変更したりするとすぐに機能しなくなります。

私は私が誰かを助けることを願ってのWindows 7、エクセル2007

を使用しています。 おかげ

Private Sub Workbook_Open()  
    changeXLIcon "D:/myBOOK/IQS.ico" 
End Sub 

Private Sub Workbook_WindowActivate(ByVal Wn As Window) 
    changeXLIcon "D:/myBOOK/IQS.ico" 
End Sub 

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window) 
    changeXLIcon "Excel.exe" 
End Sub 


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 

Public Sub changeXLIcon(iconname As String) 

    Dim Icon& 


    Icon = ExtractIcon32(0, iconname, 0) 
    SendMessage32 GetActiveWindow32(), &H80, 1, Icon '< 1 = big Icon 
    SendMessage32 GetActiveWindow32(), &H80, 0, Icon '< 0 = small Icon 


End Sub 

Answer 1

私は問題がいくつかのプロセスだけ現在のウィンドウのアイコンを設定しながらランニングを持つエクセルに由来することを推測すると思います。 GetActiveWindow32（）を呼び出す代わりに、EXCEL.EXEという名前のすべてのプロセスのリストを取得し、SendMessage32を使用してそれらのすべてのアイコンをそれぞれのハンドルに変更する必要があります。