Custom toolbar button

JimM

Well-known Member
Joined
Nov 11, 2003
Messages
752
I've created (or more accurately plagiarised !) the code below to create a custom toolbar button when a specific spreadhseet is opened. It seems to work but not quite how I want it to, problem is that it creates a new toolbar menu with a dropdown and the macro button is within that. Ideally what I would like is the macro button to be directly on the toolbar ie with no dropdown

Any ideas on how I do this

Thanks




Private Sub CreateMyCommandBar()
Dim ocb As CommandBarControl
Dim cbr As CommandBar
Dim objCommandBarButton As CommandBarButton
'reset/delete a previous custom menu before create a new custom menu
Call DeleteMyCommandBar
Set cbr = Application.CommandBars.Add(Name:="MyMenu", Position:=floating) 'Position:=msoBarTop
Set ocb = cbr.Controls.Add(Type:=msoControlPopup, Temporary:=True)
ocb.Caption = "&Menu"
'add a ControlButton to a commandbar

Set objCommandBarButton = ocb.Controls.Add(Type:=msoControlButton, ID:=1)
With objCommandBarButton
.Caption = "Run Menu"
.OnAction = "tabmenu"
.Style = msoButtonIconAndCaption
.FaceId = 2892
.BeginGroup = False
End With

Set ocb = Nothing
Set objCommandBarButton = Nothing
Application.CommandBars("MyMenu").Visible = True

End Sub
 

Excel Facts

Quick Sum
Select a range of cells. The total appears in bottom right of Excel screen. Right-click total to add Max, Min, Count, Average.

Forum statistics

Threads
1,224,223
Messages
6,177,249
Members
452,765
Latest member
Erka Gizli

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top