caption property in command bar (excel 2003)

G

Guest

I am trying to add a caption to a control button on a command bar using many
variations of the following code in the Workbook_Open event:
Set myBar = Application.CommandBars.Add(myName, msoBarTop, , True)
With myBar
.Controls.Add msoControlButton
.Controls(1).Caption = "useful info"
End With

The command bar shows no button, just blank space, if the mouse hovers over
the space the caption appears, but I want the caption to appear on a button
that a user can press. I can attach the correct macro to the 'space' and
works if i click the 'space'.

Where am I going wrong?
 
P

papou

Hello Jill
Set myBar = Application.CommandBars.Add(myName, msoBarTop, , True)
set Myctr = myBar.Controls.Add msoControlButton
Myctr.Caption = "useful info"

HTH
Cordially
Pascal
 
G

Guest

hi,

I've modify your code:
Dim mybar As CommandBar, Myname
Dim btn As CommandBarButton

Myname = "Test"
Set mybar = Application.CommandBars.Add(Myname, msoBarTop, , True)
Set btn = mybar.Controls.Add(msoControlButton)
With btn
.Caption = "useful info"
.Style = msoButtonCaption
End With
mybar.Visible = True

<smile>
 

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