Excel 2007使用了新的用户界面，每项功能都在称作Ribbon的功能区中且它们的位置都是固定的，仅快速访问工具栏(QAT)与先前版本的工具栏相似，可用来添加或删除命令。因此，在Excel 2007中创建自定义菜单并为菜单项指定宏不像在Excel 2003中那样容易。本文汇总了John Walkenbach、John McLea和Ron de Bruin所介绍的技术。
- – – -技术基础
—— 识别工具栏图像
如果使用Excel 97或以后的版本，您知道它使用一些图像在它的内置菜单和工具栏中。您能够通过设置FaceID属性为一个特定的整数在自定义菜单和工具栏中使用这些内置图像。然而，问题是如何知道图像所对应的整数。
下面的子过程创建了一个带有开始的250个FaceID图像(见下图1所示)的自定义工具栏。创建了工具栏之后，将鼠标指针放在按钮上面来找到与图像相应的FaceID值。但单击工具栏按钮不会产生任何效果，因为子过程没有在OnAction属性中分配任何宏。当然，您能够通过改变IDStart和IDStop的值来看到更多的图像，最后一个FaceID图像显示数字3518(也有一些空白图像)。
图1：创建一个FaceID工具栏，当鼠标放在某图像上时将显示相应的数字
下面是子过程代码：
Sub ShowFaceIDs()
Dim NewToolbar As CommandBar
Dim NewButton As CommandBarButton
Dim i As Integer, IDStart As Integer, IDStop As Integer
’如果已存在FaceIds工具栏则删除
On Error Resume Next
Application.CommandBars(“FaceIds”).Delete
On Error GoTo 0
’添加一个空工具栏
Set NewToolbar = Application.CommandBars.Add _
(Name:=”FaceIds”, temporary:=True)
NewToolbar.Visible = True
’可以改变下面的值来看到不同的FaceIDs
IDStart = 1
IDStop = 250
