Excel VBA开发技术大全 第20章

第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 ·

• 1
• 2
• 3
• 4
• 5
• 6
• 7

搜索更多关于： Excel VBA开发技术大全 第20章 的文档