Customizing toolbar buttons
 

I created some customized toolbars in Excel, and I'd like
to change the appearance of the buttons (background color,
font size, bold) so that it would stand out compared to
the regular Excel toolbars, can anybody tell me how to do
it? Below you'll find my code:

Set metricsbar = CommandBars.Add(Temporary:=True)
With metricsbar
.Name = "Metrics"
.Position = msoBarTop
.Visible = True
End With

Dim clearbutton As CommandBarControl
Set clearbutton = metricsbar.Controls.Add
(Type:=msoControlButton)
With clearbutton
.OnAction = "Clear_AIMSOutput"
.Caption = "Clear AIMS Output"
.Style = msoButtonCaption
End With

Thanks,
Alex.

Customizing toolbar buttons
 

Alex,

Why don't you add a FaceId. See John Walkenbach's utility at
http://j-walk.com/ss/excel/tips/tip67.htm to help find the values of the
FaceIds, which will give you a decent toolbar button image.


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Alex" wrote in message
...
I created some customized toolbars in Excel, and I'd like
to change the appearance of the buttons (background color,
font size, bold) so that it would stand out compared to
the regular Excel toolbars, can anybody tell me how to do
it? Below you'll find my code:

Set metricsbar = CommandBars.Add(Temporary:=True)
With metricsbar
.Name = "Metrics"
.Position = msoBarTop
.Visible = True
End With

Dim clearbutton As CommandBarControl
Set clearbutton = metricsbar.Controls.Add
(Type:=msoControlButton)
With clearbutton
.OnAction = "Clear_AIMSOutput"
.Caption = "Clear AIMS Output"
.Style = msoButtonCaption
End With

Thanks,
Alex.