Custom toolbars (not again!!!)

S

Sharon

Hi

You've helped so much with this but I am going wild with frustration. I
copied your code exactly and it is creating a toolbar and button on the fly.
But I want the button to display text and am using the following code. But
it is just showing a blank button? It runs the macro fine and the tool tip
shows. Any help would be really, really appreciated!!

Sub make_menu()
Dim cbar As CommandBar
Dim cbarcontrol As CommandBarControl
'delete the previous version if it exists
Call delete_menu

Set cbar = Application.CommandBars.Add(Name:="tester", temporary:=True)

cbar.Visible = True
cbar.Position = msoBarTop

Set cbarcontrol = cbar.Controls.Add(Type:=msoButtonCaption)
With cbarcontrol
.Caption = "All"
.OnAction = "All"
.Visible = True

End With
End Sub
 
T

Tom Ogilvy

Set cbarcontrol = cbar.Controls.Add(Type:=msoButtonCaption)
should be

Set cbarcontrol = cbar.Controls.Add(Type:=msoControlButton)
 

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

Similar Threads


Top