Archive

Posts Tagged ‘Menus’

Are you using Excel 2007 but like 2003 menus?

Here is some code (h/t to JWalk blog) on how to get the Excel 2003 menu, but show in Excel 2007.

Just enter this into any VBA module and run it, it will add to your add-ins toolbar.

Sub MakeOldMenus()
On Error Resume Next
‘ Delete it, if it exists
Application.CommandBars(“Old Menus”).Delete
On Error GoTo 0
‘ Create an old-style toolbar
‘ Set the last argument to False for a more compact menu
Set OldMenu = Application.CommandBars.Add(“Old Menus”, , True)
‘ Copy the controls from Excel’s “Built-in Menus” shortcut menu
With CommandBars(“Built-in Menus”)
.Controls(“&File”).Copy OldMenu
.Controls(“&Edit”).Copy OldMenu
.Controls(“&View”).Copy OldMenu
.Controls(“&Insert”).Copy OldMenu
.Controls(“F&ormat”).Copy OldMenu
.Controls(“&Tools”).Copy OldMenu
.Controls(“&Data”).Copy OldMenu
.Controls(“&Window”).Copy OldMenu
.Controls(“&Help”).Copy OldMenu
End With
‘ Make it visible. It appears in the Add-Ins tab
Application.CommandBars(“Old Menus”).Visible = True

End Sub

Categories: Macros Tags: , , ,
Design a site like this with WordPress.com
Get started