ich hatte mal einen Code von euch bekommen, womit ich das Icon in der Kopfzeile ändern kann, aber ich habe den nicht zum laufen bekommen. Es kommt zwar kein Fehler aber es tut sich nichts.
Folgender Code:
'*** Win32 API
Function Declarations - Für Logo ändern ***
Declare
Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare
Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 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
'*** Win32 API Constant Declarations - Für Logo ändern ***
Const WM_SETICON As Long = &H80
... und hier die Prozedur zum aufrufen:
Sub Excel_Icon_ändern()
'*** set XL's main window icon ***
Excel_Icon "D:\Programme\OfficeXP\Office10\forms\1031\NOTEL.ICO"
'*** restore XL's main window icon ***
Excel_Icon
'set active workbook's window icon ***
Excel_Icon "D:\Programme\OfficeXP\Office10\forms\1031\CNFNOT.ICO", ActiveWorkbook.Name
'restore active workbook's window icon ***
Excel_Icon , ActiveWorkbook.Name
End Sub
Was ich nicht weis welchen Pfad ich für die Icons angeben muss und welchen für das Excel Icon.
Kann mir da jemand helfen
MfG
Holger Wächter