Changing button appearance on custom toolbar.

A

amescha

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, Before:=1)
Cmd.Caption = "CopyTo"
Cmd.OnAction = "'EquGen.xls'!CopyToEquationGenerator"
Set Cmd = Application.CommandBars("EquationCopies").Controls.Add( _
Type:=msoControlButton, _
ID:=2950, Before:=2)
Cmd.Caption = "CopyTo"
Cmd.OnAction = "'EquGen.xls'!CopyToEquationGeneratorTarget"
Set Cmd = Application.CommandBars("EquationCopies").Controls.Add( _
Type:=msoControlButton, _
ID:=2950, Before:=3)
Cmd.Caption = "CopyTo"
Cmd.OnAction = "'EquGen.xls'!CopyToErrorAnalysis"
Set Cmd = Application.CommandBars("EquationCopies").Controls.Add( _
Type:=msoControlButton, _
ID:=2950, Before:=4)
Cmd.Caption = "CopyTo"
Cmd.OnAction = "'EquGen.xls'!CopyToErrorAnalysisTarget"
End Sub

Many thanks in advance!
amescha
Charles Ames
University of Oregon
 
A

amescha

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top