Excel 2007 自定义菜单技术（3）

　下面的内容应用了前面所讲的技术在Excel 2007中创建自定义菜单，并为菜单项指定相应的宏，如图4所示。　　[img]http://img.ddvip.com/2007_02/1170572006_ddvip_5352.jpg[/img]
　　图4：在Excel 2007中自定义菜单示例
——只用于一个工作簿 　　可以按下面的步骤在特定的Excel 2007工作簿中创建自定义菜单：
　　(1) [url=http://file.ddvip.com/2007_02/1170571542_ddvip_1324.rar][color=#0000ff]下载示例工作簿。单击此处下载(MyWorkbook.xlsm)[/color][/url]
　　(2) 在Excel 2007中打开该工作簿。
　　(3) 在快速访问工具栏(QAT)中单击右键，选择“自定义快速访问工具栏”，弹出“Excel 选项”对话框。在对话框中的“从下列位置选择命令”下拉列表框中选择“宏”，然后在右侧的“自定义快速访问工具栏”下拉列表框中选择“用于MyWorkbook.xlsm”。
　　然后，在左侧的列表框中选择“WBDisplayPopUp”，单击“添加”按钮，再单击“确定”按钮。
　　如果想修改所要显示的图标，可单击下方的“修改”按钮。
　　[img]http://img.ddvip.com/2007_02/1170572007_ddvip_2128.jpg[/img]
　　图5：在“Excel选项”中添加自定义菜单
　　(4) 此时，快速访问工具栏中新增了一个图标，点击该图标将弹出自定义菜单。能使用Ctrl+M组合键快速打开菜单，也能使用“宏”对话框(按Alt+F8键)修改快捷键。
　　其实，在示例工作簿中隐藏着一个工作表，该工作表上存放着菜单项名称、所执行的宏名及图标号等。可以在任一工作表标签中单击右键，选择“取消隐藏”命令，或在“开始”功能区中选择“格式”下的“隐藏/取消隐藏”中相应的命令来显示该工作表。该工作表如图6所示。[img]http://img.ddvip.com/2007_02/1170572009_ddvip_6555.jpg[/img]
　　图6：存放菜单项名、宏名及图标号的MenuSheet工作表
　　与前面所讲述的内容一样，该工作表中包含5列，分别为：
　　(1)级别：指定的菜单项的级别，有效值是2和3。第2级别是菜单项，第3级别是子菜单项。
　　(2) 标题：显示在菜单、菜单项和子菜单项中的文字。使用连接符(&)指定一个带下划线的字符。
　　(3) 宏：对于第2级或第3级菜单项，应该是一个宏，当该菜单项被选择时执行相应的宏。如果第2级菜单项有一个或多个第3级菜单项，第2级菜单项可能没有一个宏与它相关联。可以按Alt+F11键进入VBE窗口，在宏模块中添加或修改宏。
　　(4) 分隔线：如果设置为真，将在菜单项或子菜单项前放置一个分隔线。
　　(5) FaceID(图标号)：可选的。一个代码数字，代表显示在菜单项前内置的图形图像。获取代码数字可见上文所介绍的识别工具栏图像的内容，也可见下文的介绍。
　　可以修改MenuSheet工作表中的内容，然后按“刷新菜单”按钮来改变菜单项。单击“隐藏菜单工作表”按钮将隐藏MenuSheet工作表。
　　示例代码见示例工作簿。查找图标号的示例工作簿请点击此处下载(show faceids.xlsm)，在工作表的First ID和Last ID单元格框中输入起始和终止数字，单击“GO”按钮，在下方显示相应数量的图标，单击任一图标，名称框中将显示其ID编号。
　　- - - - - - - - - - - - - - - - - - - -
——用于所有工作簿
　　如果想在所有工作簿中都能够使用指定宏，则可以将宏复制到Personal.xlsb中或者使用隐藏在XLStart文件夹下的xlsb工作簿。该文件夹中的每个文件都会在Excel开启时自动打开。另一种方法是创建带有宏的加载项。
　　XLStart文件夹位于所安装的Office目录下，具体路径取决于您所安装的Office的位置。
　　示例图片如上文图4所示。
　　(1) 点此下载文件MyMacroFile.xlsb。
　　(2) 复制该文件至XLStart文件夹中，然后打开Excel。
　　(3) 在快速访问工具栏(QAT)中右击，选择“自定义快速访问工具栏”，弹出如图7所示的对话框。在“从下列位置选择命令”下拉列表框中选择“宏”，“自定义快速访问工具栏”中选择“用于所有文档(默认)”。选择“DisplayPopUp”宏，按“添加”按钮，然后单击“确定”按钮。(当然，您也可以先单击“修改”按钮选择您喜欢的图标)
　　[img]http://img.ddvip.com/2007_02/1170572012_ddvip_5759.jpg[/img]
　　图7：“Excel选项”对话框
　　(4) 此时，快速访问工具栏中新增了一个图标，点击该图标将弹出自定义菜单。
　　可以在“视图”功能区中单击“取消隐藏”命令来显示MenuSheet工作表。该工作表含有5列，与图6相同且其含义同上文所述。