Excel2007自定义菜单技术详细介绍

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