Custom toolbars (not again!!!)

[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
--
Sharon

[Tom Ogilvy]

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

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


--
Regards,
Tom Ogilvy



"Sharon" wrote:

> 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
> --
> Sharon