Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Custom toolbars (not again!!!)
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Custom toolbars (not again!!!)
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Custom Toolbars | Excel Worksheet Functions | |||
Custom Toolbars..? | Excel Discussion (Misc queries) | |||
Custom toolbars | Excel Discussion (Misc queries) | |||
Custom Toolbars | Excel Programming | |||
Custom ToolBars | Excel Programming |