Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Custom Menus With Excel 2007
Recently some users got new PC's with Vista and Excel 2007. Now this macro
does not build a custom menu when the file is opened? Can I have my code detect the version of Excel and then is there a modified version of this menu-building macro for Excel 2007? Private Sub Workbook_Open() Dim Menu1 As CommandBarControl Dim MainMenuBar As CommandBar Dim CustomMenu As CommandBarControl On Error Resume Next Application.CommandBars("Worksheet Menu Bar").Controls("&JournalEntries").Delete On Error GoTo 0 Set MainMenuBar = Application.CommandBars("Worksheet Menu Bar") HelpMenu = MainMenuBar.Controls("Help").Index Set CustomMenu = MainMenuBar.Controls.Add(Type:=msoControlPopup, Befo=HelpMenu) CustomMenu.Caption = "&JournalEntries" With CustomMenu.Controls.Add(Type:=msoControlButton) .Caption = "ValidateJE" .OnAction = "ValidateOneJe" End With |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Custom Menus With Excel 2007
Now this macro does not build a custom menu when the file is opened?
It does but you have to switch to the Add-ins tab to find it. -- Jim "Mike H." wrote in message ... Recently some users got new PC's with Vista and Excel 2007. Now this macro does not build a custom menu when the file is opened? Can I have my code detect the version of Excel and then is there a modified version of this menu-building macro for Excel 2007? Private Sub Workbook_Open() Dim Menu1 As CommandBarControl Dim MainMenuBar As CommandBar Dim CustomMenu As CommandBarControl On Error Resume Next Application.CommandBars("Worksheet Menu Bar").Controls("&JournalEntries").Delete On Error GoTo 0 Set MainMenuBar = Application.CommandBars("Worksheet Menu Bar") HelpMenu = MainMenuBar.Controls("Help").Index Set CustomMenu = MainMenuBar.Controls.Add(Type:=msoControlPopup, Befo=HelpMenu) CustomMenu.Caption = "&JournalEntries" With CustomMenu.Controls.Add(Type:=msoControlButton) .Caption = "ValidateJE" .OnAction = "ValidateOneJe" End With |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Sub-menus of main menus for Excel 2007 | New Users to Excel | |||
Adding custom menus to Excel ???? | Excel Programming | |||
Excel 2007 - Custom menus is missing! | Excel Discussion (Misc queries) | |||
Excel & Custom Menus | Excel Programming | |||
Excel.xlb and Custom Menus | Excel Programming |