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

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

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