Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to add entries in the Menue bar with VBA code?
Try some code like the following:
Sub CreateMenuAndItem() Dim MenuBar As Office.CommandBar Dim TopMenu As Office.CommandBarPopup Dim MenuItem As Office.CommandBarButton Set MenuBar = Application.CommandBars.FindControl(ID:=30007).Par ent Set TopMenu = MenuBar.Controls.Add(Type:=msoControlPopup, temporary:=True) TopMenu.Caption = "&My Menu" Set MenuItem = TopMenu.Controls.Add(Type:=msoControlButton, temporary:=True) With MenuItem .Caption = "&Click Me" .Style = msoButtonCaption .OnAction = "'" & ThisWorkbook.Name & "'!MacroName" .Tag = "SOME_TEXT_VALUE_FOR_YOUR_APP" End With End Sub Sub MacroName() MsgBox "Hello World" End Sub -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com (email on the web site) "Marcel Marien" wrote in message ... Hello, can anybody tell me how to add a new entry into the main menue bar from inside a macro? I tried to use the macro recorder, but it seems that this kind of operation can not be recorded. Marcel |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to add entries in the Menue bar with VBA code?
Hello,
can anybody tell me how to add a new entry into the main menue bar from inside a macro? I tried to use the macro recorder, but it seems that this kind of operation can not be recorded. Marcel |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
vb drop down menue | Excel Discussion (Misc queries) | |||
How do I set up XML on Data menue? | Excel Discussion (Misc queries) | |||
Menue | Excel Programming | |||
unique entries code | Excel Programming | |||
Enforced entries code | Excel Programming |