Excel Kitabı Taskbar İcon Değiştirme Problemi

[Ergün Güler]

Selam,

Aşağıdaki kodlar ile Excel kitabının simgesini değiştiriyorum. Ancak birkaç problem var Şöyle ki;

1-İkinci bir Excel Kitabı açınca taskbar'daki simge eski klasik excel simgesi oluyor.
2-tüm açık excel kitablarının simgesi aşağıda kodladığım simge oluyor.

isteğim şu: özellikle taskbardaki simgeyi değiştirebileyim. excel penceresi simgesi olmasa da olur.
acaba aşağıdaki kırmızı alanda mı hata yapıyorum?
Yardımcı olabilirseniz çok sevinirim.

Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) _
As Long 

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() 
Dim h32NewIcon As Long
Dim h32WndXLMAIN As Long

h32NewIcon = ExtractIcon32(0, "Notepad.exe", 0)

[COLOR="Red"]h32WndXLMAIN = FindWindow("XLMAIN", Application.Caption)[/COLOR]
SendMessage32 h32WndXLMAIN, &H80, 1, h32NewIcon 'Icon big
SendMessage32 h32WndXLMAIN, &H80, 0, h32NewIcon 'Icon small
End Sub

 

[Husgvarna]

h32WndXLMAIN = FindWindow("XLMAIN", Application.Caption)
[/CODE]

Kırmızı bölümü aşağıdaki gibi denermisiniz?

  h32WndXLMAIN = GetActiveWindow32()