Excel Icon

To get rid of the title bar use:
Application.DisplayFullScreen = True
If this will not do then you will likely need to do some programming with the API.
Tom

Tom,

I want to have the titlebar.
I have created a new Commandbar, so the standard commandbar is replaced with this one.
On the new commandbar is an excel icon placed left to the first pop-up menu.
I just think I have to change my code that makes the new commandbar. But what to do?

Thanks for your help

Rather than replace the existing Menu bar with yours create a new one and disable the old one.


The key is setting the MenuBar argument of the Add method to False (the default). Then there is no Excel icon.

Brepsenkamp,

Some time ago XL-Dennis posted code (I believe his source was unknown) that will change the default excel icon to any icon of your choosing (*.ico).

Searching the title: "Changing the excel icon" will take you to the thread, but the content of Xl-Dennis's post is no longer there.

You might try e-mailing Xl_Dennis and see if he would consider posting that code again.

good luck

mweaver

This code will change the Excel icon to whatever you specify....Hope it helps.

Hi,

<pre>
Option Explicit

Private Declare Function ExtractIcon Lib "shell32.dll" _
Alias "ExtractIconA" ( _
ByVal hInst As Long, _
ByVal lpszExeFileName As String, _
ByVal nIconIndex As Long) As Long

Private 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

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

Private Const WM_SETICON = &H80
Private Const ICON_SMALL = 0
Private Const ICON_BIG = 1

Sub setExcelIcon(Optional stFileName As String = "", Optional strIconIndex _
As Long = 0, Optional bSetBigIcon As Boolean = False, Optional bSetSmallIcon _
As Boolean = True)
'© 2002 Alla rättigheter Stephen Bullen

Dim hIcon As Long
Dim hwndXLApp As Long

On Error Resume Next
hwndXLApp = FindWindow("XLMAIN", Application.Caption)

If hwndXLApp <> 0 Then
Err.Clear
If stFileName = "" Then
strIconIndex = 8000
hIcon = ExtractIcon(0, Application.Path & Application.PathSeparator & "Excel.exe", strIconIndex)
ElseIf Dir(stFileName) = "" Then
hIcon = 0
ElseIf Err.Number <> 0 Then
hIcon = 0
Else
hIcon = ExtractIcon(0, stFileName, strIconIndex)
End If

If bSetBigIcon Then SendMessage hwndXLApp, WM_SETICON, ICON_BIG, hIcon
'Ändra ikon i MS Excel.
If bSetSmallIcon Then SendMessage hwndXLApp, WM_SETICON, ICON_SMALL, hIcon
End If

End Sub

Sub Change_Icons()
setExcelIcon "E:OfficeIkonerstaroffice.ico"
End Sub

Sub Reset_Icons()
setExcelIcon ""
End Sub
</pre>

Warm regards from a cold Östersund,

Dennis

Hi Dennis,

Is there a way that I can modify the above so that the ICON which appears when you press ALT + TAB is also changed.

Any help would be greatly appreciated.

Thanks

Mark