Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Changing button appearance on custom toolbar.
Dear Excel folks,
I have the following code that adds a custom toolbarand adds four identical buttons to the toolbar. It works just fine except I want to change the appearances of three of the buttons so that they aren't just all smiley faces. I don't need to edit the button images as bitmaps or anything fancy, just one of the standard button images is fine. Also, if possible, I would like to add whatever those little pop-up screen tips are called when you have the mouse pointer on a button. Sub AddButtonTest2() ' ' AddButtonTest2 Macro ' Macro recorded 9/24/2004 by Knight ITC ' ' File name = EquGen.xls ' Toolbar name = EquationCopies ' Toolbar starts without any buttons ' 1st Macro name = CopytoEquationGenerator ' 2nd Macro name = CopytoEquationGeneratorTarget ' 3rd Macro name = CopytoErrorAnalysis ' 4th Macro name = CopytoErrorAnalysis Dim Cmd As CommandBarButton Application.CommandBars.Add(Name:="EquationCopies" ).Visible = True Set Cmd = Application.CommandBars("EquationCopies").Controls .Add( _ Type:=msoControlButton, _ ID:=2950, Befo=1) Cmd.Caption = "CopyTo" Cmd.OnAction = "'EquGen.xls'!CopyToEquationGenerator" Set Cmd = Application.CommandBars("EquationCopies").Controls .Add( _ Type:=msoControlButton, _ ID:=2950, Befo=2) Cmd.Caption = "CopyTo" Cmd.OnAction = "'EquGen.xls'!CopyToEquationGeneratorTarget" Set Cmd = Application.CommandBars("EquationCopies").Controls .Add( _ Type:=msoControlButton, _ ID:=2950, Befo=3) Cmd.Caption = "CopyTo" Cmd.OnAction = "'EquGen.xls'!CopyToErrorAnalysis" Set Cmd = Application.CommandBars("EquationCopies").Controls .Add( _ Type:=msoControlButton, _ ID:=2950, Befo=4) Cmd.Caption = "CopyTo" Cmd.OnAction = "'EquGen.xls'!CopyToErrorAnalysisTarget" End Sub Many thanks in advance! amescha Charles Ames University of Oregon |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Changing button appearance on custom toolbar.
set the faceid property of the button for the image
set the tooltiptext for the popup tip John Walkenbach has a utility to show you the faceid's http://j-walk.com/ss/excel/tips/tip67.htm Identifying FaceID Values for CommandBar Images -- Regards, Tom Ogilvy "amescha" wrote in message ... Dear Excel folks, I have the following code that adds a custom toolbarand adds four identical buttons to the toolbar. It works just fine except I want to change the appearances of three of the buttons so that they aren't just all smiley faces. I don't need to edit the button images as bitmaps or anything fancy, just one of the standard button images is fine. Also, if possible, I would like to add whatever those little pop-up screen tips are called when you have the mouse pointer on a button. Sub AddButtonTest2() ' ' AddButtonTest2 Macro ' Macro recorded 9/24/2004 by Knight ITC ' ' File name = EquGen.xls ' Toolbar name = EquationCopies ' Toolbar starts without any buttons ' 1st Macro name = CopytoEquationGenerator ' 2nd Macro name = CopytoEquationGeneratorTarget ' 3rd Macro name = CopytoErrorAnalysis ' 4th Macro name = CopytoErrorAnalysis Dim Cmd As CommandBarButton Application.CommandBars.Add(Name:="EquationCopies" ).Visible = True Set Cmd = Application.CommandBars("EquationCopies").Controls .Add( _ Type:=msoControlButton, _ ID:=2950, Befo=1) Cmd.Caption = "CopyTo" Cmd.OnAction = "'EquGen.xls'!CopyToEquationGenerator" Set Cmd = Application.CommandBars("EquationCopies").Controls .Add( _ Type:=msoControlButton, _ ID:=2950, Befo=2) Cmd.Caption = "CopyTo" Cmd.OnAction = "'EquGen.xls'!CopyToEquationGeneratorTarget" Set Cmd = Application.CommandBars("EquationCopies").Controls .Add( _ Type:=msoControlButton, _ ID:=2950, Befo=3) Cmd.Caption = "CopyTo" Cmd.OnAction = "'EquGen.xls'!CopyToErrorAnalysis" Set Cmd = Application.CommandBars("EquationCopies").Controls .Add( _ Type:=msoControlButton, _ ID:=2950, Befo=4) Cmd.Caption = "CopyTo" Cmd.OnAction = "'EquGen.xls'!CopyToErrorAnalysisTarget" End Sub Many thanks in advance! amescha Charles Ames University of Oregon |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Changing button appearance on custom toolbar.
Tom,
Thanks again! The J-Walk add-in worked like a charm. The other macro at that site crashed about 2/3 of the way through unfortunately. Gave a -Big number run-time error. When I went back to Excel spreadheet I had another error saying "Out of memory". Oh well. BTW I solved the mouse pointer question: CmdCaption = "Whatever you want it to say" amescha Charles Ames University of Oregon "Tom Ogilvy" wrote: set the faceid property of the button for the image set the tooltiptext for the popup tip John Walkenbach has a utility to show you the faceid's http://j-walk.com/ss/excel/tips/tip67.htm Identifying FaceID Values for CommandBar Images -- Regards, Tom Ogilvy |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Custom toolbar button icons | Excel Discussion (Misc queries) | |||
Delete a custom button by holding down the ALT key and dragging the button off the toolbar | Excel Programming | |||
Can't delete custom button and toolbar | Excel Programming | |||
Cannot Get Caption to show on custom toolbar button | Excel Programming | |||
custom toolbar button that visually toggles in and out | Excel Programming |