Excel 自义用户界面.docxVIP

第 9 章自定义 Excel 2007 界面Excel 2003 及以前版本使用菜单栏和工具栏进行操作，在 Excel 2007 中引进行功能区（RibbonX）。本章实例分别介绍定制这两类控制的方法。9.1使用工具栏对象命令栏包括菜单栏和工具栏，在 Excel VBA 中，用 CommandBars 集合对象表示所有 的命令栏集合。在 Excel 2003 中创建的自定义菜单栏，在 Excel 2007 中也可打开使用，只 是这些菜单都添加到“加载项”选项卡中。案例 170创建自定义菜单1．功能说明菜单栏和工具栏是用户与 Excel 进行交互的工具，在 Excel 中，将菜单栏、工具栏和 快捷菜单合并为一种功能，称为命令栏，都放置到 CommandBars 集合中。在 Excel 中，可 以使用 VBA 代码控制菜单（如增加自定义菜单）。2．语法说明在 Excel VBA 中，CommandBarControl 对象表示具体的命令按钮或菜单项，该对象是 CommandBarControls 集合中的成员。每个 CommandBar 对象包含一个 CommandBarControls 集合对象。由 CommandBar 对象（如主菜单、“常用”工具栏和“格式”工具栏等命令栏） 组成 CommandBars 集合对象。CommandBarControl 对象常用属性和方法如下：?Caption 属性，返回或设置指定命令栏控件的题注文字。?OnAction 属性，返回或设置一个 VBA 宏（子过程）名，该宏在用户单击或更改某命 令栏控件的值时运行。CommandBarControls 集合对象由 CommandBarControl 对象组成，通过 Add 方法可新 建一个 CommandBarControl 对象，并将其添加到指定命令栏上的控件集合中。其语法格式 如下： expression.Add(Type, Id, Parameter, Before, Temporary) 各参数含义的如下：? Type 设置添加到指定命令栏的控件类型。可以为下列 MsoControlType 常量之一： msoControlButton、msoControlEdit、msoControlDropdown、msoControlComboBox 或 msoControlPopup。?Id 用来指定内置控件的整数。如果该参数为 1，或者忽略该参数，将在命令栏中添加 一个空的指定类型的自定义控件。?Parameter 设置参数信息，对于内置控件，该参数用于容器应用程序运行命令。对于自 定义控件，可以使用该参数向 VBA 过程传递信息，或用其存储控件信息。?Before 设置位置信息，表示新控件在命令栏上位置的数字，新控件将插入到该位置控 件之前。如果忽略该参数，控件将添加到指定命令栏的末端。?Temporary 为 True 将使新命令栏为临时命令栏。临时命令栏在关闭容器应用程序时删 除，其默认值为 False。CommandBars 集合对象由 CommandBar 对象组成，使用 CommandBars 对象的 Add 方 法可新建一个命令栏并添加到命令栏集合。其语法格式为： expression.Add(Name, Position, MenuBar, Temporary) 各参数的含义如下：?Name 为新命令栏的名称。如果忽略该参数，则为默认名称（例如 Custom 1）。?Position 设置新命令栏的位置或类型。?MenuBar 为 True 将以新命令栏替换活动菜单栏。默认值为 False。?Temporary 为 True 将使新命令栏为临时命令栏。临时命令栏在关闭容器应用程序时删 除。默认值为 False。3．案例说明本例的主要功能是，创建自行创建的菜单命令。在默认情况下，Excel 2007 的加载项 选项中不包含任何特殊的命令。4．编写代码（1）添加菜单选项的代码如下：Sub CreatMyMenu()Dim myMenubar As CommandBar Dim myMenu As ObjectDim myMenuitem As ObjectSet myMenubar = CommandBars.ActiveMenuBarSet myMenu = myMenubar.Controls.Add(msoControlPopup, , , , True) myMenu.Caption = 我的菜单选项Set myMenuitem = myMenu.Controls.Add(Type:=msoControlButton, ID:=1) myMenuitem.Caption = 选项 1myMenuitem.Style = mso