Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How do you change the Worksheet Menu Bar "icon"?
Hello all,
I can't believe no one has needed to do this, but I googled high and low and didn't find an answer. I want to change the icon of the Worksheet Menu Bar in Excel. The subject has "icon" in quotes because I dropped into win32, found the HWND of the Worksheet Menu Bar, and did a SendMessage ... WM_SETICON .... and the icon didn't change, so I am not sure it is the icon of the menu bar (perhaps the WM_PAINT handler just draws it?). I feel confident that this can be done, because they hinted at it in Professional Excel Development (Bullen, Bovey, Green). Actually, it sounded like they were going to tell you how to do it, but then they just showed code for changing the main window icon. Any and all help is appeciated, Jim Barnett Software Engineer |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How do you change the Worksheet Menu Bar "icon"?
Jim,
One way is replace the menu bar with your own custom menu bar. Regards, Jim Cone San Francisco, USA http://www.realezsites.com/bus/primitivesoftware '-------------------- Sub MakeDuplicateWorksheetMenuBar() Dim cmdNewBar As Office.CommandBar Dim cmdCtrl As Office.CommandBarControl Dim cmdButton As Office.CommandBarButton 'Create the new bar Set cmdNewBar = Excel.CommandBars.Add(Name:="NewBar", _ Position:=msoBarTop, MenuBar:=False, Temporary:=True) With cmdNewBar.Controls ' New icon Set cmdButton = .Add(Type:=msoControlButton) cmdButton.FaceId = 273 ' Duplicate the existing controls For Each cmdCtrl In Excel.CommandBars(1).Controls .Add ID:=cmdCtrl.ID Next End With 'Hide the old bar and show the new bar Excel.CommandBars(1).Enabled = False cmdNewBar.RowIndex = 1 cmdNewBar.Visible = True End Sub Sub MakeItRight() Excel.CommandBars("NewBar").Delete Excel.CommandBars(1).Enabled = True End Sub '-------------------------------- wrote in message Hello all, I can't believe no one has needed to do this, but I googled high and low and didn't find an answer. I want to change the icon of the Worksheet Menu Bar in Excel. The subject has "icon" in quotes because I dropped into win32, found the HWND of the Worksheet Menu Bar, and did a SendMessage ... WM_SETICON .... and the icon didn't change, so I am not sure it is the icon of the menu bar (perhaps the WM_PAINT handler just draws it?). I feel confident that this can be done, because they hinted at it in Professional Excel Development (Bullen, Bovey, Green). Actually, it sounded like they were going to tell you how to do it, but then they just showed code for changing the main window icon. Any and all help is appeciated, Jim Barnett Software Engineer |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
change "true" and "false" to "availble" and "out of stock" | Excel Worksheet Functions | |||
Lost "File Menu" - now it's "Edit / View / Insert.." but no "F | Excel Discussion (Misc queries) | |||
Excel should have a "Change Case..." menu Item like Word!! | Excel Discussion (Misc queries) | |||
CommandBars("Worksheet Menu Bar").Controls("Tools").Enabled = Fals | Excel Programming | |||
Can't Change Commandbars("Worksheet Menu Bar") | Excel Programming |