Change Excel Icon

[tome10]

How do you change the excel Icon? I've been searching, and can't seem to find anything "that I understand". I found one that changes the Icon when the Workbook is open but only on the Bottom Explorer Bar. Don't understand why you would want to do that, but..
So..
1. Can you change the icon from Workbook to Workbook?
2. How do you change the Icon's for All Files?

[RobDog888]

My code to change all opened Excel workbook icons:
http://www.vbforums.com/showpost.php...04&postcount=4


If you want to you can change it to change specific workbooks to specific icons. Just need to know the filenames as they appear int he window caption bar which FindWindow can search against.

[Siddharth Rout]

Place this in a module and run ReplaceIcon

Option Explicit
 
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
 
Declare Function GetActiveWindow32 Lib "USER32" Alias "GetActiveWindow" _
() As Integer
 
Sub ReplaceIcon()
    Dim Icon As String
    Const NewIcon$ = "Notepad.exe"
    
    '~~> Getting the icon from windows calculator
    '~~> similarly you can extract the icon from any exe
    '~~> if the application is not present in windows path
    '~~> then give complete path and file name
    Icon = ExtractIcon32(0, "Calc.exe", 0)
    '~~> you can use 1 for big icon
    SendMessage32 GetActiveWindow32(), &H80, 1, Icon
    '~~> and 0 for small icon
    SendMessage32 GetActiveWindow32(), &H80, 0, Icon
End Sub

Edit: Speedy Rob beat me to it !!!!!

[RobDog888]

That will only change the active window. Mine will change all Excel windows even if they are minimized

[Siddharth Rout]

Yeah I realized that after I posted and saw your post

[RobDog888]

See its a problem with GetActiveWindow32 as it can not return an active window outside of the calling thread. If the active window is some other instance of Excel then the call will return Null.

[tome10]

Just from Reading your posts I gather it is the toolbar icon that changes upon opening of the document. Am I correct in that?

I mean in My Documents the Excel Workbook/s sitting there and they all look the same. I'm wanting for some of them have different Icon's. Possible? IF not, I would at least like to change all of them to one of the attached Icon's.

[RobDog888]

Oh you want to change the Associated Icon in Explorer. That is something totally different.
You can change individule icons for folders but not individule icons for files.

[tome10]

Alright can you change the Associated Excel File Icon? If so how?
I got this idea from a Program I downloaded from Cnet. It was a Project manager program made by someone, and you have a certain number of days till you have to register it. It's on my other computer, but it is Excel, and it's Icon is different than all the other excel files. Maybe I should be asking how you make an excel file not an excel file but like .AXL or something.

[Learner2019]

Place this in a module and run ReplaceIcon

Option Explicit
 
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
 
Declare Function GetActiveWindow32 Lib "USER32" Alias "GetActiveWindow" _
() As Integer
 
Sub ReplaceIcon()
    Dim Icon As String
    Const NewIcon$ = "Notepad.exe"
    
    '~~> Getting the icon from windows calculator
    '~~> similarly you can extract the icon from any exe
    '~~> if the application is not present in windows path
    '~~> then give complete path and file name
    Icon = ExtractIcon32(0, "Calc.exe", 0)
    '~~> you can use 1 for big icon
    SendMessage32 GetActiveWindow32(), &H80, 1, Icon
    '~~> and 0 for small icon
    SendMessage32 GetActiveWindow32(), &H80, 0, Icon
End Sub

Edit: Speedy Rob beat me to it !!!!!

How do I adjust the Icon size?