褐色是什么颜色的图片:20.3.1 手工方式自定义RibbonX（2）

来源：百度文库编辑：九乡新闻网时间：2024/04/27 17:34:19

20.3.1 手工方式自定义RibbonX（2）
（7）将图20-16所示对话框中的_rels文件夹拖到当前文件夹中。
（8）打开_rels文件夹中的.rels文件，在最后一个Relationship标记与Relationships标记之间添加以下内容，将在工作簿文件与customUI文件夹中的customUI.xml文件之间创建关系。
Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" Target="customUI/customUI.xml" />
（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 = "当前工作表信息：" & vbNewLine
str1 = str1 & "工作表名：" & .Name & vbNewLine
str1 = str1 & "行：" & .Cells.Rows.Count & vbNewLine
str1 = str1 & "列：" & .Cells.Columns.Count & vbNewLine
str1 = str1 & "已使用区域：" & .UsedRange.Address
End With
MsgBox str1, vbInformation + vbOKOnly, "提示信息"
End Sub

以上代码的作用是：获取活动工作簿的名称、工作表行列数、已使用区域的地址，并使用MsgBox对话框显示出来。
（17）返回Excel界面，单击自定义的【测试】选项卡中的【工作表信息】按钮，将弹出如图20-18所示的提示对话框，显示当前工作表的信息。

（点击查看大图）图20-17 错误提示

图20-18 提示对话框

20.3.1 手工方式自定义RibbonX（2） 20.3.1 手工方式自定义RibbonX（1） 20.3.2 使用UI编辑器自定义RibbonX 细品RibbonX(11)：使用Custom UI Editor自定义功能区细品RibbonX(54)：RibbonX和Visual Studio(2) 20.4.4 RibbonX控件回调函数实例（1） - 51CTO.COM 会计手工账真账实操（原创）2-1 自定义 AuthenticationProcessingFilter—2 自定义 AuthenticationProcessingFilter-1 金字塔（自定义函数） 20.4.2 添加RibbonX到内置选项卡 - 51CTO.COM 我的手工（2） Openlaszlo中发送自定义事件的两种方式会计手工账真账实操（原创）2-6 1 首页自定义模块收藏 2 首页自定义模块收藏2 首页自定义模块收藏 2 首页自定义模块收藏1 首页自定义模块收藏. 1 首页自定义模块收藏 1 会计手工账真账实操（原创）2-2 家庭手工编织技术２～１会计手工账真账实操（原创）2-70 几款家常手工面食（2）