4523756273

Chapter 19: Accessing Your Macros through the User Interface
Creating a Custom Toolbar
If you check out all the CommandBars available, you may have noticed one
called Built-in Menus. This CommandBar contains all the old Excel 2003 menu
commands. Figure 19-9 shows part of this giant pop-up menu. All the old commands
are there, but they aren’t arranged very well.
329
Figure 19-9:
Displaying
the Built-in
Menus
shortcut
menu.
In this example, I present a VBA procedure that (kind of) re-creates the old
Excel 2003 menu bar. It creates a new CommandBar and then copies the controls
from the Built-in Menus CommandBar.
Sub MakeOldMenus()
Dim cb As CommandBar
Dim cbc As CommandBarControl
Dim OldMenu As CommandBar
‘ Delete it, if it exists
On Error Resume Next
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”)