How to add menu button to exisiting menubar
Thanks, any idea on best way to delete the new menu button?
Actually, can someone describe the overal menu structure? That is
where I am having trouble understanding here. Thanks.
"Vasant Nanavati" <vasantn *AT* aol *DOT* com wrote in message ...
This works:
Sub AddNewItem()
Dim ctlNew As CommandBarControl
Set ctlNew = CommandBars("Chart Menu Bar").Controls _
("Chart").Controls.Add(msoControlButton, , , , True)
With ctlNew
.Style = msoButtonCaption
.Caption = "MyNewItem"
.Visible = True
.OnAction = "MyNewMacro"
End With
End Sub
Sub MyNewMacro()
MsgBox "Success!"
End Sub
--
Vasant
"Mike P" wrote in message
om...
I see a lot in previous posts on adding a whole new nenu...but I want
to add a new button (on the workbook open & remove on the workbook
before close events) to the Chart menu and assign a macro to it. I am
using XL2000. I am missing something in my attempts to add a single
button (not a pop-up) to an already existing menu.
Thanks in advance for the advice.
Mike
|