title image


Smiley Icon in der Titelleiste wechseln
Ich habe ein Script gefunden, um das Icon in der Titelleiste zu wechseln.

Nur leider funktioniert das bei mir nicht.



Sub SetExcelIcon()

Dim lngXLHwnd As Long, lngIcon As Long, strIconPath As String



'Use whichever icon file you want to use here

strIconPath = "C:\Program Files\Microsoft Visual Studio\Common\Graphics\Icons\Flags\FLGUK.ICO"

lngXLHwnd = FindWindow("XLMAIN", Application.Caption)



lngIcon = ExtractIcon(0, strIconPath, 0)



SendMessage lngXLHwnd, WM_SETICON, False, lngIcon



End Sub



Ich habe es geringfügig angepasst



Sub SetExcelIcon()

Dim lngXLHwnd As Long, lngIcon As Long, strIconPath As String



'Use whichever icon file you want to use here

strIconPath = ThisWorkbook.Path & "\mein.ico"

lngXLHwnd = FindWindow("XLMAIN", Application.Caption)



lngIcon = ExtractIcon(0, strIconPath, 0)



SendMessage lngXLHwnd, WM_SETICON, False, lngIcon



End Sub



VBA meckert einen Fehler beim Kompilieren an "Sub oder Funktion nicht definiert."

und markiert FindWindow



hat jemand eine Idee??


Problem ist die pessimistische Beschreibung für Herausforderung

Rabatte für Forenmitglieder!
www.ferienwohnung-rasa.de

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: