Z
ZipCurs
I am working in Excel 2007 and want to create a simple custom menu button in
the command bar. The button is currently under "Add Ins" on the control bar
and is with other buttons that do have submenus. I don't want any other
controls below it and would prefer not to have the little triangle next to
it. The code below
works fine expect for the negative aesthetics of the arrow next to it and
the empty pull down menu which shows up below it when it put the cursor over
the
button. Replacing msoControlPopup with mso ControlButton results in nothing
showing!
Set cmd = CommandBars("Worksheet Menu
Bar").Controls.Add(Type:=msoControlPopup, before:=13)
With cmd
.Caption = "About"
.Visible = True
.OnAction = "ShowAboutInfo"
End With
Any help would be greatly appreciated.
the command bar. The button is currently under "Add Ins" on the control bar
and is with other buttons that do have submenus. I don't want any other
controls below it and would prefer not to have the little triangle next to
it. The code below
works fine expect for the negative aesthetics of the arrow next to it and
the empty pull down menu which shows up below it when it put the cursor over
the
button. Replacing msoControlPopup with mso ControlButton results in nothing
showing!
Set cmd = CommandBars("Worksheet Menu
Bar").Controls.Add(Type:=msoControlPopup, before:=13)
With cmd
.Caption = "About"
.Visible = True
.OnAction = "ShowAboutInfo"
End With
Any help would be greatly appreciated.