Excel VBA开发技术大全 第20章

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：为标记、和

、、和控件。

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

和控件。

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

在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属性指定回调函数，针对不同控件有不同的子过程结构。 ? 控件为

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 ·