Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to add menu button to exisiting menubar
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to add menu button to exisiting menubar
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to add menu button to exisiting menubar
CommandBars("Chart Menu Bar").Controls _
("Chart").Controls("MyNewItem").Delete I'll pass on trying to describe the overall menu structure as it is quite complicated :-). -- Vasant "Mike P" wrote in message om... 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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to add menu button to exisiting menubar
Thanks. I actually figured it out before you replyed, and that has
given me a better feel for how the menus are done. "Vasant Nanavati" <vasantn *AT* aol *DOT* com wrote in message ... CommandBars("Chart Menu Bar").Controls _ ("Chart").Controls("MyNewItem").Delete I'll pass on trying to describe the overall menu structure as it is quite complicated :-). -- Vasant "Mike P" wrote in message om... 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Blank Worksheet Displays Opening Exisiting Workbook | New Users to Excel | |||
How to Edit an Exisiting Drop-Down List in Excel 2003 | Excel Discussion (Misc queries) | |||
Auto Row Height in Merged Cells with pre exisiting text | Excel Worksheet Functions | |||
I want to copy only the layout and formulas and not the exisiting | Excel Discussion (Misc queries) | |||
Seagate Button on Menu | Excel Discussion (Misc queries) |