Z
ZipCurs
I am working in Excel 2007 and want to create a simple custom button. 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.
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.