Excel VBA开发技术大全 第20章

第20章 使用RibbonX

对用户来说，操作界面是Excel 2007中改动最大之处。在Excel 2007中，使用RibbonX（功能区）代替了传统的菜单和工具栏。另外，Excel 2007采用Office Open XML文件格式保存工作簿。用户通过XML可直接访问工作簿中的内容，并可通过XML自定义RibbonX。

20.1 了解Office（2007）Open XML文件格式

Microsoft Office 2007引入了一种基于XML的新文件格式。这种新格式称为Microsoft Office Open XML Formats，适用于Word 2007、Excel 2007和PowerPoint 2007。

20.1.1 Office Open XML的优点

Office Open XML有许多优点，它不仅适用于开发人员及其构建的解决方案，而且适用于个人以及各种规模的组织。主要有以下优点：

1．压缩文件

Office Open XML文件会自动压缩，某些情况下最多可缩小75%。Office Open XML使用zip压缩技术来存储文档，由于这种格式可以减少存储文件所需的磁盘空间，并可以降低通过电子邮件、网络和Internet发送文件时所需的带宽，因而可能节省成本。在打开文件时，这种格式可以自动解压缩；而在保存文件时，这种格式又可以重新自动压缩。

2．改进了受损文件的恢复

使用Office Open XML格式保存的文档不是二进制格式，而是使用文本格式以一定的XML结构以模块形式进行组织，从而使文件中的不同数据组件彼此分隔。这样，即使文件中的某个组件（例如，图表或表格）受到损坏，文件本身还是可以打开。

3．易于检测到包含宏的文档

根据工作簿是否包含宏，在保存工作簿时文件的扩展名也有所不同。无宏的工作簿扩展名为“.xlsx”，包含宏的工作簿扩展名为“.xlsm”。这样，通过工作簿名称即可知道文件是否包含宏代码。

4．更好的隐私保护和更强有力的个人信息控制

可以采用保密方式共享文档，因为使用文档检查器可以轻松地识别和删除个人身份信

Excel VBA开发技术大全

息和业务敏感信息，例如，作者姓名、批注、修订和文件路径。

5．更好的业务数据集成性和互操作性

将Office Open XML作为Office 2007发布版产品集的数据互操作性框架意味着：文档、工作表、演示文稿和表单都可以采用XML文件格式保存，任何人都可免费使用该文件格式并获得该文件格式的许可证，而不必支付版权费。Office还支持客户定义的XML架构，用于增强现有Office文档类型的功能。这意味着客户在现有系统中可以轻松解除信息锁定，使用熟悉的Office程序对相应信息进行操作。在Office中创建的信息很容易由其他业务应用程序所采用。打开和编辑Office文件只需要一个ZIP实用工具和一个XML编辑器即可。

6．向后兼容性

Office Open XML是向后兼容的，它可以兼容早期的版本，例如Office 2000，Office XP和Office 2003。这些版本的用户下载一个免费的更新，即可在以前版本中打开Office 2007的文档。

20.1.2 Excel 2007 Open XML文件结构

下面通过对如图20-1所示的工作簿文件进行剖析，以使读者深入地了解Excel 2007 Open XML文件的结构。

Excel 2007 Open XML文件其实是一个zip文件。为了分析其结构，需要将其解压出来。因此，计算机系统中需要安装管理zip文件的软件（例如WinZip、WinRar等）。下面列出具体的步骤：

（1）将工作簿文件名“测试Excel2007文件结

图20-1 Excel 2007工作簿 构.xlsx”的后面添加一个“.zip”扩展名，修改为“测

试Excel2007文件结构.xlsx.zip”。

（2）接着当弹出如图20-2所示的警告信息，单击【是】按钮，完成文件名的修改。 （3）将上步更名的文件解压，得到如图20-3所示的文件目录结构。

图20-2 警告信息 图20-3 解压后的文件结构

·388 ·

第20章 使用RibbonX

（4）在解压后的文件夹中，最重要的文件是文件夹xl中的workbook.xml文件，该文件的代码如下：

-

-

workbook.xml文件包含一对标签，其中的每个元素都代表Excel 2007文件中的一个，工作表的名称就是其name属性的值，在上面的代码中，分别有3个工作表，即工作表1、工作表2和工作表3。元素中r:id属性的值指出保存工作表数据的XML文件。

（5）打开“xl/_rels/workbook.xml.rels”文件，其内容如下所示：

-

Type=\ips/worksheet\

Target=\

Type=\ips/worksheet\

Target=\

Type=\ips/worksheet\

Target=\

Type=\ips/sharedStrings\

Target=\

Type=\ips/styles\

·389·

Excel VBA开发技术大全

Target=\

Type=\ips/theme\

Target=\

在以上文件中，根据元素中r:id属性的值可得到工作表数据的XML文件。例如，在workbook.xml文件中名为工作表1的工作表的r:id属性为rld1，在以上文件中根据ID找到以下代码：

由此可知工作表数据保存在worksheets文件夹下，文件名为sheet1.xml。

（6）打开“xl\\worksheets\\sheet1.xml”文件，其内容如下（为节省篇幅，以下代码中省略了重复的4～6行的数据）：

Type=\ips/worksheet\

Target=\

xmlns:r=\ships\

-

- '工作表数据 -

- 0 '字符串的位置索引

- 1

-

第20章 使用RibbonX

2

- 3500 '值为35000

（此处省略工作表第4~6行的数据）

-

以上XML代码中，元素表示该行中的一个单元格，对于单元格中的值，如果元素有“t”属性的话，元素的子元素的值就是各工作表共享的字符串的索引。否则，元素的值就是该单元格的值。

（7）在工作簿中，各工作表使用的字符串统一存放在“xl/sharedStrings.xml”文件中，该文件的内容如下：

-

商品名称

-

单价

-

三星手机

-

诺基亚手机

-

摩托罗拉手机

每组字符串使用元素表示，其排列顺序就是其序号，表示工作表数据的XML文件用该序号来引用字符串。

·391·

Excel VBA开发技术大全

20.2 RibbonX控件简介

在Excel 2007中，提供了一千七百多个RibbonX控件。不能使用VBA代码从功能区中添加或删除RibbonX控件，只能通过编写XML代码来完成定制RibbonX的工作，且必须将该XML代码包含到工作簿文件中，以达到定制RibbonX的目的。

使用XML代码可描述RibbonX，指定控件出现的位置、外观、激活时的动作等。 RibbonX通过回调过程与VBA进行接口，可以在VBA中编写回调过程，以使RibbonX中的控件完成不同的功能。

在本书第1章中介绍了RibbonX的基本组成，本节将从开发人员的角度介绍RibbonX的各种控件。

20.2.1 基本控件

基本控件可以添加到自定义组中或者可以包含在其他容器控件中。常用的基本控件有以下几种。

1．标签

标签控件如图20-4所示。与用户窗体中的标签控件类似，RibbonX中的标签控件只作为文字提示信息使用，不响应用户的动作。

标签控件的XML标识为。

2．复选框

复选框如图20-4所示，可通过单击来切换状态，常用于控制一个UI控件是否可见。 复选框控件的XML标识为。 3．分隔条

分隔条如图20-4所示，用于提供组中控件可见的分隔垂直条。

分隔条控件的XML标识为。

4．按钮

按钮如图20-5所示，这是最普通的控件。按钮可带有图标和标题，能接收用户的单击，并调用相应的VBA过程完成任务。如本章前面的例子中，就为按钮指定了一个VBA代码。

按钮控件的XML标识为。

5．切换按钮

切换按钮如图20-5所示，是一个可单击项，每次单击时在按下和非按下之间切换，常

·392 ·

分隔条 标签 复选框

图20-4 标签、复选框和分隔条控件

第20章 使用RibbonX

用于组中以切换多个可能状态其中之一的属性，该组中每次仅一个按钮能被按下。

切换按钮控件的XML标识为。

按钮 切换按钮 图20-5 按钮和切换按钮

6．编辑框

编辑框如图20-6所示，可接受用户的输入。 编辑框控件的XML标识为。 7．下拉库列表

下拉库列表如图20-7所示，是由一个下拉控件和一组其他控件组成的。库列表中可以包含不同类型的控件，是最灵活的UI控件之一。

编辑框

图20-6 编辑框 图20-7 下拉库列表

下拉库列表控件的XML标识为。 8．列表项

为包含在组合框中的列表项。

列表项控件的XML标识为。

20.2.2 容器控件

容器控件可以包含其他控件，通过嵌套容器控件在其他容器里，可以创建层次结构。常用的容器控件有以下几种。

1．选项卡

在Excel 2007中，功能区被分为多个选项卡，例如【开始】、【插入】选项卡等。

·393·

Excel VBA开发技术大全

选项卡的XML标识为。 2．组

每个选项卡中又分多个组，例如【开始】选项卡中的【字体】、【对齐方式】等组，各组中包含不同的控件。

组的XML标识为。

3．盒子控件

在功能区中，盒子控件没有任何外观，也就是说盒子控件不显示出来，主要用来控制其他按钮的布局。在盒子控件中可以包含任何其他类型的控件。如图20-8所示就是使用box控件将排序的三个按钮组合在一起。

盒子控件的XML标识为。可将其他任意控件放在该容器内。

4．按钮组控件

按钮组控件用来控制其他控件的布局，在相关控件之间带有边框和分隔条，如图20-9所示。

图20-8 盒子控件 图20-9 按钮组控件

按钮组控件的XML标识符为。可将

、、、、等控件放在该容器中。

5．复合框控件

复合框控件如图20-10所示，可以在该控件中输入内容，同时提供下拉列表供用户直接选择。下拉列表的内容是一组列表项目（为一组控件）。

复合框控件的XML标识为。

6．菜单控件

功能区中的菜单控件是一种弹出式菜单，如图20-11所示。其组成元素由RibbonX文件定义。菜单可以包含按钮或其他菜单项，且允许创建层次菜单结构。

图20-10 复合框控件 图20-11 菜单控件 ·394 ·

第20章 使用RibbonX

菜单控件的XML标识为

。在该容器中可以包含、、、、、等控件。

7．分离按钮控件

分离按钮控件由一个组合按钮和菜单或者切换按钮和菜单组成，如图20-12所示。单击按钮部分将执行默认的动作，而单击下拉箭头将显示相关选项并可进行选择。

分离按钮控件的XML标识为。该容器可以包含

、、等控件。定义该控件的代码结构如下：

菜单内容

8．下拉控件

下拉控件如图20-13所示，该控件与复合框控件类似。不同的是，在该容器中还可以包含

控件。

图20-12 分离按钮控件 图20-13 下拉控件

下拉控件的XML标识为。在该容器中可包含和

控件。

20.2.3 控件属性

每个控件都具有很多的属性，可在XML中使用这些属性修改控件的外观。下面列出控件的常用属性。

1．ID类属性

每个控件都必须有一个唯一的ID，由一个最多是1024个字符的字符串组成，ID属性分为以下3类：

? id：为自定义控件的ID； ? idMso：为内置控件的ID；

·395·

Excel VBA开发技术大全

? idQ：为标记、和

的ID。 2．外观属性

外观属性用来控制控件的可见性、标签、悬浮提示等信息，常用的有以下属性。 ? itemHeight：设置gallery控件中库项目的高度，以像素为单位； ? itemWidth：设置gallery控件中库项目的宽度，以像素为单位；

? itemSize：设置menu中项目的尺寸；可设置为normal和large，大项目不但显示描

述也显示标签；

? label：设置控件的标题；

? screentip：设置鼠标悬浮在控件上时显示的小提示； ? supertip：设置鼠标悬浮在控件上时显示的大提示；

? showLabel：设置是否显示控件标签，取值为True和false；

? size：设置控件的尺寸。可设置为normal和large，控件正常尺寸（normal）占用

一行，大尺寸（large）占用三行；

? title：设置菜单的标题文本，用于menu和menuSeparator控件； ? visible：设置控件是否可见，取值为True和false。 3．图像属性

带图像的控件可以使用自定义的图像，也可使用内置控件的图像。主要有以下属性： ? image：使用此属性设置自定义图像的名称；

? imageMso：使用此属性设置内置控件的名称，用来引用内置控件的图像； ? showImage：设置是否显示一个控件的图像，取值为True和false。 4．其他属性

除了上面介绍的控制控件外观、图像的属性外，常用的属性还有以下几种：

? boxStyle：设置在box控件中是水平排列图标（默认）或垂直排列图标，取值为

Horizontal或vertical；

? columns：设置gallery控件库中的列数；

? description：设置控件的长描述，当菜单的itemSize设置为大时显示在菜单中，用

于botton、toggleButton、splitButton、checkBox、menu、dynamicMenu、gallery等控件；

? enabled：设置控件是否有效，如果设为false，则该控件为灰色，不能操作； ? maxLength：设置editBox或comboBox控件文字输入的最大长度； ? keytip：设置访问控件的快捷键； ? rows：设置gallery控件库中的行数；

? showItemImage：设置在comboBox、dropDown或gallery控件中，是否在下拉列

表中显示图像；

? tag：为控件设置附加文本。

·396 ·

第20章 使用RibbonX

20.2.4 控件回调函数

在自定义RibbonX时，可在XML中通过控件的不同属性设置控件。但是，在更多的情况下，需要程序在运行时修改控件的属性。这时，可使用控件的回调函数。

在RibbonX中提供了回调函数功能，可在运行时动态修改控件的属性。每个控件可有多个回调函数，可分别动态修改控件的相应属性。设置回调函数属性以get字符开头，紧跟着相应的属性名。例如，要动态修改控件的label属性，则用属性getLabel设置回调函数。使用属性getItemImage设置的回调函数可在程序运行时修改控件的图像。

还有3个不是按这种方式命名的属性，也可用来设置回调函数。 ? onLoad：用在XML文件的最外层元素中，当Office开始装载RibbonX

时将调用该属性指定的回调函数。

? onAction：当单击控件时，调用该属性指定的VBA过程，可应用到

、

、、和控件。

? onChange：当控件中的文本改变时，调用该属性指定的VBA过程，可应用到

和控件。

例如，以下XML代码定义一个

控件，并指定单击按钮时调用名为showmsg的VBA过程。

在Excel工作簿中，编写一个名为showmsg的过程，执行相应的功能即可。

Sub showmsg(control As IRibbonControl) MsgBox \您单击了“测试”按钮!\End Sub

从上面的代码可以看出，在VBE中编写回调函数时，过程定义部分需要指定参数。不同的回调函数的参数数量不同，下面介绍定义回调函数子过程的结构。

1．onLoad属性设置回调函数

onLoad属性只能在XML文件的最外层元素中使用，该属性设置系统装载自定义RibbonX时执行的回调函数名称，在程序中只能通过该回调函数获取RibbonX对象的引用。onLoad属性指定的回调函数的过程结构如下：

Sub 过程名(ribbon As IRibbonUI)

2．onAction属性设置回调函数

在XML中用控件的onAction属性指定回调函数，针对不同控件有不同的子过程结构。 ? 控件为

时，onAction属性指定的回调函数的过程结构如下：

Sub 过程名(ByRef Control As IRibbonControl)

·397·

Excel VBA开发技术大全

? 控件为和时，onAction属性指定的回调函数的过程结构

如下：

Sub 过程名(ByRef Control As IRibbonControl, ByRef Pressed As Boolean)

? 控件为和时，onAction属性指定的回调函数的过程结构如下：

Sub 过程名(ByRef Control As IRibbonControl,ByRef SelectedID As String,_

ByRef SelectedIndex As Integer)

3．onChange属性设置回调函数

控件为和时，onChange属性指定的回调函数的过程结构如下：

Sub 过程名(ByRef Control As IRibbonControl,ByRef Text As String)

4．其他get类属性设置回调函数

? 通过属性getItemID、getItemImage、getItemLabel、getItemScreentip、getItemSupertip

指定的回调函数的过程结构如下：

Sub 过程名(ByRef Control As IRibbonControl,ByRef Index As Integer, _ ByRefReturnValue As Variant)

? 除前面列出各属性设置的回调函数外，其他get属性（包括getContent、

getDescription、getEnabled、getImage、getItemCount、getItemHeight、getItemWidth、getKeytip、getLabel、getPressed、getSize、getScreentip、getSelectedItemID、getSelectedItemIndex、getShowImage、getShowLabel、getSupertip、getText、getTitle、getVisible等属性）指定的回调函数的过程结构如下：

Sub 过程名(ByRef Control As IRibbonControl, ByRef ReturnValue As Variant)

20.3 自定义RibbonX

在20.2节中介绍了RibbonX的常用控件，以及控件的属性、回调函数。了解这些内容之后，就可使用XML自定义RibbonX。最简单的方式就是手工方式：使用【记事本】编写XML代码，再添加到Excel工作簿中。另外，还可使用Custom UI Editor工具快速地定义RibbonX。

20.3.1 手工方式自定义RibbonX

本章的20.1节中介绍了Excel 2007工作簿的Oopen XML格式。要自定义RibbonX，也需要将工作簿解压出来，并向其中添加自定义代码。下面的例子向功能区添加一个名为

·398 ·

第20章 使用RibbonX

【测试】的选项卡，在该选项卡中添加一个按钮用来显示工作表的信息，如图20-14所示。

图20-14 自定义RibbonX

按以下步骤完成上面的自定义选项卡：

（1）在当前文件夹中创建一个名为customUI的文件夹。 （2）打开【记事本】程序，输入以下内容：

size=\工作表信息\

?注意：因为XML要区分大小写，所以一定要注意字母的大小写。

以上代码使用XML自定义RibbonX。有关XML的内容请读者参阅XML相关书籍。下面简单介绍本例中用到的元素。

? 元素是XML的根容器，名称集（namespace）将它识别作为RibbonX

文档。

? 元素是一个联系到可见的Ribbon的所有变化的容器。元素也

可以包含一个元素，用来重复利用内置控件。

? 元素是一个联系到Ribbon中现有的或新的选项卡的所有变化的容器。

元素也能包含、和/或元素来控制Ribbon的相应部分。

? < tab id=\测试\元素创建自定义的选项卡。 ? < group id=\显示\元素创建一个组。

?

元素添加一个按钮，该按钮显示名称为“工作表信息”，当单击该按钮时

执行工作簿中的showmsg宏，该宏需要在Excel的VBE中编写。 ? 接下来就使用、等代码结束各元素的定义。

（3）选择【文件】|【保存】命令，打开如图20-15所示的【另存为】对话框。在【保存类型】下拉列表框中选择“所有文件”，在【编码】下拉列表框中选择UTF-8，将文件

·399·

Excel VBA开发技术大全

保存到当前文件夹的customUI文件夹下，名称为customUI.xml。

图20-15 保存XML文件

（4）打开Excel 2007，新建一个工作簿，保存为Test.xlsm。

（5）关闭Excel 2007。并将文件test.xlsm重命名为test.xlsm.zip，使Excel工作簿变为一个压缩文件。

（6）双击压缩文件用WinRar打开该文件，如图20-16左图所示。拖动当前文件夹下的customUI文件夹到打开的压缩文件窗口，得到如图20-16右图所示效果，将该文件夹及文件夹的内容添加到压缩文件中。

图20-16 添加文件到压缩文件

（7）将图20-16所示对话框中的_rels文件夹拖到当前文件夹中。

（8）打开_rels文件夹中的.rels文件，在最后一个Relationship标记与Relationships标记之间添加以下内容，将在工作簿文件与customUI文件夹中的customUI.xml文件之间创建关系。

Type=\bility\

·400 ·

第20章 使用RibbonX

（9）保存并关闭.rels文件。

（10）删除图20-16所示对话框中的_rels文件夹，然后拖动第（7）步修改_rels文件夹到压缩文件Test.zip中。

（11）关闭压缩文件窗口，将压缩文件Test.xlsm.zip重命名为Test.xlsm。

（12）用Excel 2007打开Test.xlsm工作簿，将看到如图20-14所示的自定义选项卡。 （13）单击自定义的【测试】选项卡中的【工作表信息】按钮，因为还未编写回调函数，所以将弹出如图20-17所示的错误提示对话框。

（14）按组合键Alt+F11打开VBE环境。

（15）单击主菜单【插入】|【模块】命令增加一个标准模块。 （16）在【模块1】中输入以下过程代码：

Sub showmsg(control As IRibbonControl) Dim str1 As String With ActiveSheet

str1 = \当前工作表信息：\

str1 = str1 & \工作表名：\

str1 = str1 & \行：\ str1 = str1 & \列：\ str1 = str1 & \已使用区域：\ End With

MsgBox str1, vbInformation + vbOKOnly, \提示信息\End Sub

以上代码的作用是：获取活动工作簿的名称、工作表行列数、已使用区域的地址，并使用MsgBox对话框显示出来。

（17）返回Excel界面，单击自定义的【测试】选项卡中的【工作表信息】按钮，将弹出如图20-18所示的提示对话框，显示当前工作表的信息。

图20-17 错误提示 图20-18 提示对话框

20.3.2 使用UI编辑器自定义RibbonX

使用手工方式自定义RibbonX时，操作步骤比较繁琐。首先，需要将工作簿文件修改为压缩文件扩展名，将自定义RibbonX的XML代码添加到压缩文件中，其次，需要修改压缩文件中_rels文件夹中的文件，最后再将压缩文件名称改回Excel工作簿名称。

为了快速、高速地完成RibbonX的定义，微软公司提供了一个名为Custom UI Editor的工具，可用来处理存放在Excel Open XML工作簿中自定义RibbonX的实用程序。使用该工具软件能够自动处理放置自定义UI部分到压缩中的过程，并定义与它的关系，所有

·401·

Excel VBA开发技术大全

的处理只需通过单击鼠标完成。

1．认识UI编辑器

读者可从http://openxmldeveloper.org/articles/customuieditor.aspx网站上下载Custom UI Editor工具软件。

在安装Custom UI Editor工具之前，应先检查系统是否安装.NET Framework 2.0。如果没有安装，需要首先下载安装后，再安装Custom UI Editor工具。

安装完成后，UI编辑器将在桌面创建一个快捷方式，双击运行UI编辑器，打开如图20-19所示的操作界面。

图20-19 UI编辑器

UI编辑器由菜单栏、工具栏和一个文字编辑窗口组成。在文字编辑窗口中可输入自定义UI的XML代码。使用UI编辑器的一般步骤是：

（1）打开一个Office 2007格式的工作簿文件。

（2）在UI编辑器的编辑窗口中输入自定义RibbonX的XML代码。 （3）保存文件，退出UI编辑器。

（4）打开文件即可查看到自定义RibbonX的效果。 从以上步骤可以看出，使用UI编辑器可减少将文件改名为zip、将customUI文件加入压缩包、修改.rels文件等过程，可快速完成自定义UI的过程。

2．使用UI编辑器

使用UI编辑器自定义UI的过程非常简单，下面就使用UI编辑器来制作上节的实例。 （1）在Excel 2007中新建一个工作簿，保存为Test2.xlsm，退出Excel 2007。 （2）打开UI编辑器（Custom UI Editor）。

（3）单击菜单File|Open命令，在打开的对话框中选择test2.xlsm文件，如图20-20 所示。

（4）单击【打开】按钮，在UI编辑器中打开工作簿test2.xlsm。此时，编辑器窗口仍然显示为空白，只是标题栏显示了工作簿的文件名，如图20-21所示。

·402 ·

第20章 使用RibbonX

图20-20 打开文件 图20-21 打开工作簿

（5）因为工作簿Test2.xlsm中还没有自定义RibbonX的代码，所以UI编辑器的编辑窗口里为空。在编辑窗口中输入以下XML代码，用来定义RibbonX，如图20-22所示。

?提示：UI编辑器不支持中文，因此需要将上节自定义RibbonX代码的中文改成英文。

图20-22 输入XML代码

size=\label=\Info\onAction=\

（6）单击工具栏中的Save按钮将内容保存到test2.xlsm文件中，然后关闭UI编辑器

·403·

Excel VBA开发技术大全

完成RibbonX的创建。

（7）打开工作簿test2.xlsm，可看到功能区新增加的选项卡如图20-23所示。

图20-23 自定义功能区

（8）在VBE中，编写过程showmsg用来显示当前工作表的信息。具体代码与20.3.1节中的过程showmsg完全相同。

20.4 自定义RibbonX实例

前面介绍了自定义RibbonX的步骤、常用RibbonX控件等内容。本节以实例形式演示自定义RibbonX的各种方法，包括将内置RibbonX控件组合成一个新的选项卡、添加自定义RibbonX控件到内置选项卡、自定义Office按钮功能、定义回调函数等实例。

本节的实例不再重复创建的各个步骤，具体操作可参见本章20.3节的内容，在实例中只列出定义RibbonX的XML代码、回调函数的VBA代码等内容。

20.4.1 组合内置Ribbon

在Excel 2007功能区的内置控件中，将不同用途的控件用选项卡进行了分类。在大多数情况下，用户要完成工作都需要在多个选项卡之间来回切换。利用功能区的自定义功能，可以新建一个选项卡，将常用内置控件集中到一起，以方便用户操作。

第20章 使用RibbonX

以上XML代码自定义的选项卡如图20-24所示。

图20-24 组合内置控件

对于内置控件，用户不需要编写任何VBA代码，单击这些控件即可调用系统提供的功能。在Excel 2007中提供了一千七百多个内置RibbonX控件，用户要使用这些内置控件必须先要知道具体的名称。可以在http://www.microsoft.com/zh/cn/default.aspx网站上以关键字2007OfficeControlIDsExcel2007搜索，找到2007OfficeControlIDsExcel2007.EXE文件，将其下载到本地硬盘。该文件为一个自解压文件，将其解压缩后可看到其中包含24个文件，分别为Office 2007各组件（包括Excel、Word、Outlook和PowerPoint）中RibbonX控件的名称、类型等。Excel 2007中RibbonX控件名称包含在ExcelRibbonControls.xlsx文件中，打开该文件，可看到如图20-25所示的控件信息。

图20-25 Excel 2007控件列表

另外，Microsoft Office 2007提供了大约二千五百个内置命名的图像，这些图像与不同的命令相关联。如果知道图像的名称，则可以为自定义的RibbonX控件中指定这些图像。

微软提供的mso image browser.xlsm工作簿列出了Excel 2007提供的这些图像，可从网上下载该工作簿。该工作簿的内容如图20-26所示，在工作表第1行中列出了当前选中名称的图像及后面的50个图像。从第2行开始，每行第1列显示1个内置图像的名称，在XML代码中使用imageMso属性引用图像名称，即可显示出对应的图像。

·405·

Excel VBA开发技术大全

图20-26 Excel 2007内置图像

?提示：也可以将内置图像显示在用户窗体的Image控件中。例如，下面的代码将为用户

窗体中的Image1控件设置内置图像，图像的尺寸被指定为32×32像素。

Image1.Picture = Application.CommandBars.GetImageMso(\32, 32)

20.4.2 添加RibbonX到内置选项卡

可将自定义RibbonX控件添加到内置选项卡中。例如，以下代码在【开始】选项卡中添加一个名为【测试】的组：

第20章 使用RibbonX

完成设置后打开工作簿，可看到如图20-27右侧所示的自定义组“测试”，其中包含了3个按钮和1个菜单，单击菜单将弹出6个菜单项目。

图20-27 添加Ribbonx控件到内置选项卡

单击按钮或菜单项目，将调用工作簿中的宏。如果希望单击这些控件时能完成实际的工作，就需要在工作簿中定义对应的宏（例如，sub1、sub2、MenuSub1、MenuSub2等）。

20.4.3 定义Office按钮

除了可以自定义功能区的选项卡外，用户还可以自定义Office按钮中的菜单项。例如，以下XML代码将在Office按钮中添加菜单项（分别添加1个菜单、1个弹出菜单及其6个弹出菜单项、在系统已有的【打印】弹出菜单中添加1个菜单项）。

·407·

Excel VBA开发技术大全

imageMso=\

description=\由用户设置打印机参数\

在XML中，使用元素表示定义Office按钮菜单。

以上XML代码生成的Office按钮菜单如图20-28所示。

图20-28 自定义Office按钮

·408 ·

第20章 使用RibbonX

20.4.4 RibbonX控件回调函数实例

前面介绍的实例都没有使用RibbonX控件的回调函数。在实际应用中，很多地方都需要使用回调函数才能完成具体的工作。下面以实例演示回调函数的使用方法，创建类似Excel 2007功能区【开始】选项卡的【剪贴板】组中的【粘贴】分离按钮控件，当用户单击下方的按钮时将弹出下拉按钮列表，如图20-29左图所示。单击其中某个按钮后，上方显示的按钮将变为该按钮图标。鼠标指向按钮时，下方将显示提示信息，如图20-29右图所示。

图20-29 新建RibbonX控件

具体的步骤如下：

（1）向Excel工作簿中添加以下自定义RibbonX控件的XML代码：

getSupertip=\ onAction\

onAction=\

onAction=\

onAction=\

onAction=\

·409·

Excel VBA开发技术大全

以上代码中，第1行语句中添加了onLoad属性，该属性设置系统装载自定义RibbonX

时执行的回调函数名称，需要在VBE中编写名为rxcustomUI_onLoad的过程，具体代码 如下：

元素中包含1个按钮（

控件）和1个菜单（控件），在控件中添加4个按钮控件。元素中包含的按钮用来显示上一步操作过的按钮图标，在下拉菜单中选择不同按钮后，该按钮将自动更新其图标、提示文字和标签文字，因此，使用了getImage、getLabel、getSupertip 3个属性分别设置3个回调函数，具体代码如下：

getSupertip=\

而

控件包含的4个按钮控件只需要使用onAction属性设置一个回调函数即可。 （2）将上述XML代码添加到Excel工作簿中后，在Excel 2007中打开该工作簿即可看到自定义的RibbonX控件，如图20-29所示。

（3）按组合键Alt+F11进入VBE环境。

（4）向工程中插入一个模块，在模块声明部分输入以下代码声明2个模块变量：

（5）当Excel 2007装载自定义RibbonX时，将调用onLoad属性设置的回调函数。在程序中只能通过该回调函数获取RibbonX对象的引用。具体代码如下：

Sub rxcustomUI_onLoad(ribbon As IRibbonUI) Set moRibbon = ribbon '获取对Ribbon的引用 End Sub

Dim moRibbon As IribbonUI '模块变量，获取对Ribbon的引用 Dim str1 As String '模块变量，保存当前按钮的状态

（6）编写getImage属性设置的回调函数如下：

Sub rxButton_getImage(Control As IRibbonControl, ByRef returnedVal) If str1 = \ Select Case str1 Case \

returnedVal = \ Case \

returnedVal = \·410 ·

第20章 使用RibbonX

Case \

returnedVal = \ Case \

returnedVal = \ End Select End Sub

回调函数的参数可参见本章20.2.4节中的介绍。以上代码通过模块变量str1，判断当前使用过的按钮，再使用参数returnedVal返回对应按钮的图像ID（使用内置图像）。

（7）接着使用类似的方法编写getLabel属性设置的回调函数，用来修改按钮的显示文本，具体代码如下：

Sub rxButton_getLabel(ByRef Control As IRibbonControl, ByRef ReturnValue As Variant)

If str1 = \ Select Case str1 Case \

ReturnValue = \顶部\ Case \

ReturnValue = \左侧\ Case \

ReturnValue = \右侧\ Case \

ReturnValue = \底部\ End Select End Sub

（8）编写getSupertip属性设置的回调函数，用来设置按钮的提示文字，具体代码如下：

Sub rxButton_getSupertip(ByRef Control As IRibbonControl, ByRef ReturnValue As Variant)

If str1 = \ Select Case str1 Case \

ReturnValue = \移动到区域顶部\ Case \

ReturnValue = \移动到区域左侧\ Case \

ReturnValue = \移动到区域右侧\ Case \

ReturnValue = \移动到区域底部\ End Select End Sub

（9）当用户单击元素

时，执行onAction属性设置的回调函数，具体代码如下：

Sub rxMenu_onAction(Control As IRibbonControl) str1 = Mid$(Control.ID, 7)

moRibbon.InvalidateControl \'更新按钮控件 DoGoto str1 End Sub

·411·

Excel VBA开发技术大全

以上代码首先获取单击菜单容器中的控件（为按钮控件）的ID，因ID前面有前缀rxMenu，所以使用Mid函数从第7个字符开始取子串。

然后使用IribbonUI对象的InvalidateControl方法更新按钮控件。这时，按钮控件将执行getImage、getLabel、getSupertip属性设置的回调函数。

最后调用过程DoGoto移动单元格的位置。

（10）过程DoGoto的VBA代码如下，根据参数的值确定执行的具体操作。

Private Sub DoGoto(ByVal sStyle As String) Select Case sStyle Case \

ActiveCell.End(xlUp).Select Case \

ActiveCell.End(xlToLeft).Select Case \

ActiveCell.End(xlToRight).Select Case \

ActiveCell.End(xlDown).Select End Select End Sub

（11）单击

控件时，将执行onAction属性设置的回调函数，具体代码如下：

Sub rxButton_onAction(Control As IRibbonControl) DoGoto str1 End Sub

代码编写完成以后，在工作表中单击选择一个单元格，再单击【跳转】选项卡【单元格移动】组中的按钮，可在当前区域中快速移动单元格，定位到区域的边界上。

·412 ·

本文来源：https://www.bwwdw.com/article/pfa2.html