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