Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
creating my own menu item in excel
I want to replace existing menu (File, Edit,........ Help) with my own
menu for my simple accounting application using macros. on closing the application the system menu should be restored. |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
creating my own menu item in excel
Dear Asraf
The below two procedures one for Adding menus and one for removing menus should help. Please try and post back for any further help If this post helps click Yes --------------- Jacob Skaria Sub AddMenus() Dim cMenu1 As CommandBarControl Dim cbMainMenuBar As CommandBar Dim iHelpMenu As Integer Dim cbcCutomMenu As CommandBarControl On Error Resume Next Application.CommandBars("Worksheet Menu Bar").Controls("Tool-&Kit").Delete On Error GoTo 0 Set cbMainMenuBar = Application.CommandBars("Worksheet Menu Bar") iHelpMenu = cbMainMenuBar.Controls("Help").Index Set cbcCutomMenu = cbMainMenuBar.Controls.Add(Type:=msoControlPopup, Befo=iHelpMenu) cbcCutomMenu.Caption = "Tool-&Kit" Set cbcCutomMenu = cbcCutomMenu.Controls.Add(Type:=msoControlPopup) cbcCutomMenu.Caption = "Consolidate open sheets" With cbcCutomMenu.Controls.Add(Type:=msoControlButton) .Caption = "Start from Row 1" .OnAction = "ConOpenSheets1" End With With cbcCutomMenu.Controls.Add(Type:=msoControlButton) .Caption = "Start from Row 2" .OnAction = "ConOpenSheets2" End With With cbcCutomMenu.Controls.Add(Type:=msoControlButton) .Caption = "Specify Row" .OnAction = "ConOpenSheets3" End With End Sub Sub DeleteMenu() On Error Resume Next Application.CommandBars("Worksheet Menu Bar").Controls("Tool-&Kit").Delete On Error GoTo 0 End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
No Data Analysis item in Excel Tools menu. Now what? | Excel Worksheet Functions | |||
Adding a menu item to Excel | Excel Discussion (Misc queries) | |||
Control item PRINT in menu FILE of Excel | Excel Discussion (Misc queries) | |||
Excel 2000 Custom Menu Item | Excel Discussion (Misc queries) | |||
Menu items added with menu item editor in older versions | Excel Discussion (Misc queries) |