title image


Smiley Wenn man schon fremden Code kopiert, dann sollte man auch alles lesen ...
Dir fehlen da sämtliche Deklarationen der Windows-API-Funktionen. So geht's ...







Declare Function FindWindow Lib "user32" Alias "FindWindowA" _

  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long



Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" _

  (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long



Declare Function SendMessage Lib "user32" Alias "SendMessageA" _

  (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lparam As Long) As Long



Const WM_SETICON As Long = &H80



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







Code eingefügt mit Syntaxhighlighter 4.0





Gruss




scotty

I´m an admin. If you see me laughing, you should better have a backup.
Einen Fehler machen und ihn nicht korrigieren - das erst heisst wirklich einen Fehler machen.
Konfuzius


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: