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?
--
Thanks in advance, Jill C

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

HTH
Cordially
Pascal

"jillc" a écrit dans le message de news:
...
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?
--
Thanks in advance, Jill C

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
--
Regards,

Halim



"jillc" wrote:

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?
--
Thanks in advance, Jill C