动态加载Ribbon功能区

上下文选项卡对新UI的功能提供了极大的推进作用。当用户对某对象执行特定的任务时就会出现特定的选项卡。例如，在Excel中处理图表时，一个上下文选项卡提供用于图表处理的额外选项。本文将介绍创建和执行这些特定的选项卡，以及如何修改内置的上下文选项卡，也介绍如何定制或替换内置的弹出菜单，如何创建自已的上下文弹出菜单。最后，探讨创建一个使用多种语言的UI。
使项目上下文
使项目上下文意味着必须响应所做的内容，例如操控表或图片。根据对上下文控件的定义，需要在新Office UI中使用上下文选项卡集合来执行任务。然而，也不总是这样。
下面介绍上下文控件的概念，例如选项卡、组和通用控件。
选项卡
当执行上下文敏感的命令时，立即想到的是上下文选项卡。作为使Ribbon的功能完整的一部分，这些特定的选项卡将根据所选择的对象或这些对象是否获得焦点而从功能区中出现和消失，例如图表、数据透视表或图片。
下图显示了名为“图片工具”的tabSet，包含一个名为“格式”的选项卡。

要实现这样的解决方案，需要使用上下文选项卡集合和tabSet元素。下面的XML标记作为上下文选项卡集和相应的选项卡的容器：

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon>
<contextualTabs>
<tabSet>
</tabSet>
</contextualTabs>
</ribbon>
</customUI>

contextualTabs集合是每个tabSet的父对象，同样选项卡的collection对象是选项卡的父对象。可以使用上述代码来创建自已的上下文敏感功能，访问内置的tabSets来修改它们。不巧的是，这样的tabSets扩展不能应用到Excel或Word，仅能对Access的窗体和报表提供这样的扩展。当在Access中使用自定义选项卡tabSets时，需要按下列方式引用扩展的tabSet：

<tabSet idMso=”TabSetFormReportExtensibility”>

在这个tabSet里，创建上下文选项卡UI。
对于Excel和Word，需要通过完全控制内置的上下文选项卡或者通过联合getVisible属性使用事件来使选项卡的行为像上下文选项卡。
组
例如，当用户处理Excel工作簿中的工作表Sheet1时，希望仅使字体组和插入图表组可见。XML代码：

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"
onLoad="rxIRibbonUI_onLoad">
<ribbon startFromScratch="false">
<tabs>
<tab idMso="TabHome">
<group idMso="GroupFont"
getVisible="rxShared_getVisible"/>
</tab>
<tab idMso="TabInsert">
<group idMso="GroupInsertChartsExcel"
getVisible="rxShared_getVisible"/>
</tab>
</tabs>
</ribbon>
</customUI>

使用在XML中定义的共享回调，现在能够通过使用想控制的特定工作表的自定义属性来决定属性的返回值。使用下面的代码：

Sub rxShared_getVisible(control As IRibbonControl, ByRef returnedVal)
Select Case control.ID
Case "GroupFont"
returnedVal = Sheet1.rxGroupFontVisible
Case "GroupInsertChartsExcel"
returnedVal = Sheet1.rxGroupInsertChartsExcel
End Select
End Sub

根据自定义的属性值设置该属性的值。首先，设置Ribbon对象，这样当文档打开时以便设置该Ribbon为ThisWorkbook对象的属性。下面的代码放置在ThisWorkbook模块中：

Private pRibbonUI As IRibbonUI
Public Property Let rxIRibbonUI(iRib As IRibbonUI)
Set pRibbonUI = iRib
End Property
Public Property Get rxIRibbonUI() As IRibbonUI
Set rxIRibbonUI = pRibbonUI
End Property

其次，指定想控制的工作表的自定义属性，代码如下所示。自定义属性可读写，以便执行期间的任何时候都能重新赋值。

Private pblnGroupFontVisible As Boolean
Private pblnGroupChartVisible As Boolean
Property Let rxGroupFontVisible(ByVal blnVisible As Boolean)
pblnGroupFontVisible = blnVisible
End Property
Property Get rxGroupFontVisible() As Boolean
rxGroupFontVisible = pblnGroupFontVisible
End Property
Property Let rxGroupInsertChartsExcel(ByVal blnVisible As Boolean)
pblnGroupChartVisible = blnVisible
End Property
Property Get rxGroupInsertChartsExcel() As Boolean
rxGroupInsertChartsExcel = pblnGroupChartVisible
End Property

最后，根据需要修改自定义属性。这里，我们希望当指定工作表是活动工作表时显示这些组，因此使用Worksheet_Activate和Worksheet_Deactivate事件来修改属性值，代码如下：

Private Sub Worksheet_Activate()
Sheet1.rxGroupFontVisible = True
Sheet1.rxGroupInsertChartsExcel = True
ThisWorkbook.rxIRibbonUI.Invalidate
End Sub
Private Sub Worksheet_Deactivate()
Sheet1.rxGroupFontVisible = False
Sheet1.rxGroupInsertChartsExcel = False
ThisWorkbook.rxIRibbonUI.Invalidate
End Sub

当激活/取消激活该工作表时，显示或隐藏相应的组。
使用不明显的方法
使用可见性创建上下文敏感的选项卡和组可能有点不正规，但是确实是达到目标的有效的方式。然而，这种方式不是在所有情形下都可用，特别是在处理内置组中的内置控件时。
启用和禁用控件
可以使用enabled属性决定控件是否启用。
下面通过使用getEnabled属性提供上下文敏感的控件。要禁用命令，必须引用该命令本身和按钮或通用控件，例如禁用复制和剪切命令的XML代码如下：

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"
onLoad="rxIRibbonUI_onLoad">
<commands>
<command idMso="Copy" getEnabled="rxShared_getEnabled"/>
<command idMso="Cut" getEnabled="rxShared_getEnabled"/>
</commands>
</customUI>

下一步，添加共享回调来处理要执行的程序：

Sub rxShared_getEnabled(control As IRibbonControl, ByRef returnedVal)
Select Case control.ID
Case "Copy"
returnedVal = Sheet1.rxCopyEnabled
Case "Cut"
returnedVal = Sheet1.rxCutEnabled
End Select
End Sub

同样，使用自定义属性指定回调的返回值。
修改内置的选项卡集
下图展示了对内置的图表工具上下文选项卡集中添加的自定义选项卡。

正确修改内置选项卡集的关键是知道想要定制的tabSet的idMso，本例中，我们想修改TabSetChartTools选项卡集。
因此，在内置选项卡集中添加自定义选项卡的XML代码如下：

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon>
<contextualTabs>
<tabSet
idMso="TabSetChartTools">
<tab
id="rxtab"
label="My Chart Tools">
</tab>
</tabSet>
</contextualTabs>
</ribbon>
</customUI>

然而，有时我们想移除上下文图表选项卡中的所有的内置选项卡，仅在该选项卡集中添加一些非常特别的编辑工具。
首先，我们看看图表工具选项卡集中的选项卡，如下表所示。
表：图表工具选项卡集中默认的选项卡

选项卡名	描述
TabChartToolsDesign	提供用户设计所选择的图表的工具，例如内置样式选项、数据选择、图表类型，等等。
TabChartToolsLayout	指供用户布局所选择的图表的工具，例如标签、趋势线，等等。
TabChartToolsFormat	提供用户格式化所选择的图表的工具，例如形状样式、文本填充、文本效果、排列，等等。

选项卡不会像按钮一样提供enabled属性，因而使用其visible属性控制其出现。通过使选项卡不可见，其中的所有对象都将从UI中消失，但不会禁用其中包含的控件。
接着完成上面的示例，其XML代码如下：

<contextualTabs>
<tabSet
idMso="TabSetChartTools">
<tab
id="rxtab"
label="My Chart Tools">
<group idMso="GroupFont"/>
<group idMso="GroupInsertChartsExcel"/>
<group idMso="GroupNumber"/>
</tab>
<tab
idMso="TabChartToolsDesign"
visible="false" />
<tab
idMso="TabChartToolsLayout"
visible="false" />
<tab
idMso="TabChartToolsFormat"
visible="false" />
</tabSet>
</contextualTabs>

修改后的图表工具选项卡如下图所示。仅当选择图表时才出现。

处理上下文弹出菜单
当在某对象上右击或者在有弹出菜单的工作环境中右击时，会出现弹出菜单。与上下文选项卡相似，弹出菜单显示与活动对象相关的选项。
弹出菜单的设置基于VBA，不需要XML代码，它们仍然基于命令栏对象。大多数弹出菜单都能够被定制，然而基于新的OfficeArt不能够被定制。下图显示了Excel中内置弹出菜单的示例。

上图显示的弹出菜单称为“Cell”，索引值等于36。
不能够定制“Mini工具栏”，然而可以在应用程序选项中控制其是否显现。
完全取代内置的弹出菜单
当在Excel工作表单元格中右击时，将得到单元格弹出菜单，如上图所示。然而，可能有一个区域需要合适的自定义弹出菜单，如下图所示。

在编写代码前，让我们先看看该自定义的弹出菜单需要做什么：

必须在单元格弹出菜单的位置显示。
必须仅显示在预先确定的区域。本例中为单元格区域A1:O32。

首先，添加下面的代码到想要取代内置单元格弹出菜单的工作表代码模块中：

Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, _
Cancel As Boolean)
If Union(Target.Range("A1"), Range("A1:O32")).Address = _
Range("A1:O32").Address Then
CommandBars(MYPOPUP).ShowPopup
Cancel = True
End If
End Sub

下一步，需要在工作簿代码窗口添加两个过程。一个过程指工作簿的Open事件，用来创建弹出菜单；另一个过程指工作簿的Close事件，用来删除弹出菜单。

Private Sub Workbook_Open()
Call mnuPopup
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call delPopup
End Sub

然后，在标准模块中包含产生弹出菜单以及删除该菜单的代码，即编写mnuPopup过程和delPopup过程，通过声明公共常量MYPOPUP开始，以便在工程中的其它过程中可用：

Public Const MYPOPUP As String = "MY POPUP"
Sub mnuPopup()
Dim cmdBar As CommandBar
Dim mnu As CommandBarButton
delPopup
Set cmdBar = CommandBars.Add _
(Name:=MYPOPUP, Position:=msoBarPopup, Temporary:=True)
Set mnu = cmdBar.Controls.Add(Type:=msoControlButton)
With mnu
.Caption = "Bold"
.OnAction = "bold"
.FaceId = 113
End With
Set mnu = cmdBar.Controls.Add(Type:=msoControlButton)
With mnu
.Caption = "Italics"
.OnAction = "italics"
.FaceId = 114
End With
Set mnu = cmdBar.Controls.Add(Type:=msoControlButton)
With mnu
.Caption = "Underline"
.OnAction = "underline"
.FaceId = 115
End With
Set mnu = cmdBar.Controls.Add(Type:=msoControlButton)
With mnu
.Caption = "&About..."
.OnAction = "about"
.FaceId = 326
.BeginGroup = True
End With
Set mnu = cmdBar.Controls.Add(Type:=msoControlButton)
With mnu
.Caption = "&Help"
.OnAction = "help"
.FaceId = 984
.BeginGroup = True
End With
End Sub
Sub delPopup()
On Error Resume Next
CommandBars(MYPOPUP).Delete
End Sub

当打开工作簿时，执行第一个过程；当关闭工作簿时，执行第二个过程。
最后，添加弹出菜单中按钮的功能，代码如下：

Sub bold()
Selection.Font.bold = Not Selection.Font.bold
End Sub
Sub italics()
Selection.Font.Italic = Not Selection.Font.Italic
End Sub
Sub underline()
If Selection.Font.underline = xlUnderlineStyleSingle Then
Selection.Font.underline = xlUnderlineStyleNone
Else
Selection.Font.underline = xlUnderlineStyleSingle
End If
End Sub

在弹出菜单中添加单独的项目
自定义内置弹出菜单的另一种有用的方式是添加新功能。如下图所示，我们在工作表标签右击后出现的弹出菜单中添加新的功能，只需单击该功能应能按字母顺序对工作表排序。

在标准模块中输入下面的代码：

Sub addButton()
Dim cmdbar As CommandBar
Dim btn As CommandBarButton
resetPopup
On Error GoTo Err_Handler
Set cmdbar = Application.CommandBars("Ply")
Set btn = cmdbar.Controls.Add(Type:=msoControlButton, Before:=1)
With btn
.Style = msoButtonIconAndCaption
.Caption = "Order sheet tabs"
.FaceId = 210
.OnAction = "orderTabs"
End With
Exit Sub
Err_Handler:
MsgBox Err.Description, vbCritical, Err.Number
End Sub

与上例一样，如果想在打开工作簿时自动实现该功能，则在工作簿的打开事件中添加调用该过程，此外，在工作簿的关闭事件中添加调用恢复原菜单的功能。恢复菜单的代码如下：

Sub resetPopup()
Application.CommandBars("Ply").Reset
End Sub

下面，编写代码实现当单击添加的按钮时所实现的功能：

Sub orderTabs()
Dim i As Long
Dim j As Long
Dim n As Long
n = ActiveWorkbook.Sheets.Count
If n = 1 Then
MsgBox "这个工作簿中仅有一个工作表!", _
vbInformation
Exit Sub
End If
For i = 1 To n - 1
For j = i + 1 To n
If Sheets(j).Name < Sheets(i).Name Then
Sheets(j).Move Before:=Sheets(i)
End If
Next
Next
End Sub

使用多种语言的UI
本例的目的是让用户能够选择他们喜欢的语言。示例中将提供两种语言，下图显示了我们将在Excel中创建的示例。

实现上述目的需要完成四项任务：

每个控件的标签必须在运行时修改，因此使用getLabel属性。
因为这是在所有控件中共享的属性，所以我们使用一个共享的回调来处理变化。这也避免了许多代码量。
使用工作表保持控件的名字和翻译。可以隐藏该工作表，以便用户不容易访问它。
使用VLookup函数搜索列表中的控件，返回标签值。

控件名和翻译是实现该解决方案的关键元素，一个工作表示例如下图所示。

可以为包含翻译的区域定义动态区域，也可以将区域转换为表，但是在里只是提供一个示例，所以使用固定区域。下面开始编写VBA代码。
首先，定义一些需要使用的变量。在标准模块声明部分声明下列全局变量：

Public grxIRibbonUI As IRibbonUI
Public giColControls As Integer
Public gWS As Worksheet

第一个变量是Ribbon对象，第二个变量指向语言版本所在的列；第三个变量指向包含翻译的工作表对象。
接着，使用onLoad事件设置这些变量以便后面使用：

Sub rxIRibbonUI_onLoad(ribbon As IRibbonUI)
Set grxIRibbonUI = ribbon
giColControls = 2
Set gWS = ThisWorkbook.Sheets("Languages")
Application.SendKeys "%UN{RETURN}"
End Sub

这段代码执行下列任务：

设置ribbon对象
决定翻译位于的初始列
设置包含翻译的工作表
向应用程序发送快捷键Alt+UN，以便当打开该工作簿时选择自定义选项卡

当打开文档时将装载初始标签，因此需要处理共享的getLabel回调，代码如下：

Sub rxshared_getLabel(control As IRibbonControl, ByRef returnedVal)
On Error Resume Next
returnedVal = Application.WorksheetFunction.VLookup( _
control.ID, gWS.Range("A1:C200"), giColControls, 0)
End Sub

当用户从UI的splitButton/menu中选择不同语言时调用代码。当用户单击所选择的语言命令时，需要使功能区无效以便重新装载值到UI中，代码如下：

Sub rxbtnshared_Click(control As IRibbonControl)
Select Case control.ID
Case "rxbtnSpanish"
giColControls = 3
Case "rxbtnEnglish"
giColControls = 2
End Select
grxIRibbonUI.Invalidate
End Sub

使用Select语句选择两种可用的语言。如果选择的是Spanish，查找的列被设置为3；如果选择English，该列被设置为2（缺省值）。

动态加载Ribbon功能区的更多相关文章

Excel催化剂开源第7波-VSTO开发中Ribbon动态加载菜单
在VS开发环境中,特别是VSTO的开发,微软已经现成地给开发者准备了设计器模式的功能区开发,相对传统的VBA.ExcelDna和其他方式的COM加载项开发来说,不需要手写xml功能区,直接类似拖拉窗体 ...
c# 创建Excel com加载项Ribbon动态加载工作簿和工作表
使用 VSTO 创建外接程序,Gallery控件动态加载工作簿名称代码如下: 加载工作簿名称: private void Gallery1_ItemsLoading(object sender, R ...
js动态加载css和js
之前写了一个工具类点此链接里面含有这段代码,感觉用处挺多,特意提出来 var loadUtil = { /* * 方法说明:[动态加载js文件css文件] * 使用方法:loadUtil.loadjs ...
geotrellis使用（二十三）动态加载时间序列数据
目录前言实现方法总结一.前言今天要介绍的绝对是华丽的干货.比如我们从互联网上下载到了一系列(每天或者月平均等)的MODIS数据,我们怎么能够对比同一区域不同时间的数据情况,采用 ...
Ext JS 如何动态加载JavaScript创建窗体
JavaScript不需要编译即可运行,这让JavaScript构建的应用程序可以变得很灵活.我们可以根据需要动态从服务器加载JavaScript脚本来创建和控制UI来与用户交互.下面结合Ext JS ...
Ext动态加载Toolbar
在使用Ext的GridPanel时候,有时候需要面板不用重新加载而去更新Store或者Toolbar,Store的方法有很多,例如官方api给我们提供的Store.load(),Store.reLoa ...
Android动态加载框架汇总
几种动态加载的比较 1.Tinker 用途:热修复 GitHub地址:https://github.com/Tencent/tinker/ 使用:http://www.jianshu.com/p/f6 ...
为不同分辨率单独做样式文件，在页面头部用js判断分辨率后动态加载定义好的样式文件
为不同分辨率单独做样式文件,在页面头部用js判断分辨率后动态加载定义好的样式文件.样式文件命名格式如:forms[_屏幕宽度].css,样式文件中只需重新定义文本框和下拉框的宽度即可. 在包含的头文件 ...
html中的图像动态加载问题
首先要说明下文档加载完成是什么概念一个页面http请求访问时,浏览器会将它的html文件内容请求到本地解析,从窗口打开时开始解析这个document,页面初始的html结构和里面的文字等内容加载完成 ...

随机推荐

【问题备注】VS2012不能输入代码，文字…
第一次遇到,非常奇怪,一个项目,VS2012能正常打开,但是不能输入代码. 对比分析发现,其他项目能正常work.在于一个问题就是,VS2012 右下角有个INS一直在转一直analyzing,而正常 ...
Js异步级联选择框实践方法
HTML: <li> 所在地区: <select name="prov" id="ddl_prov&q ...
for-in用法
var nyc = { fullName: "New York City", mayor: "Bill de Blasio", popu ...
bower安装使用以及git安装
bower需要:node 和 git node安装包下载:http://blog.csdn.net/myan/article/details/2028545 Git安装: 选择第二项:Use Git ...
C#创建文件夹、文件
private void CheckCatcheDirectory()//创建文件夹 { if (!Directory.Exists(xmlFilePath))//xmlF ...
PHP函数参数的引用传递和值传递
函数的参数传递有两种方式 1,值传递常见的 test($param) 方式就是值传递,在函数内部修改$param,不会影响外部变量$param的值 2,引用传递参数是引用传递的方式,此时函数内部 ...
java中的File.separator
前些天遇到一个问题,困扰了好久,现在终于解决了. 问题:上传的图片不能正确显示. 我的开发环境是在Windows下,工程在Windows下能正常部署,上传的图片也可以正常的显示.但是把工程部署在服务 ...
deepin 2014 安装后，grub出错
今天deepin2013一直出错,就想尝试下2014,so,果断下载安装,然后悲剧的又被坑了. 环境win7位于sda,deepin安装在sdb 安装完毕后,启动报错,找不到设备uuid 无奈之下,重 ...
mysql trigger 权限的说明
普通用户在创建trigger时会遇到的问题: 1.如果开启了二进制日志,但是用户没有supper 权限:那么他在创建trigger 时会提示设置log_bin_trust_function_creat ...
centos6.4x64安装vncserver
参考文章:http://blog.csdn.net/mchdba/article/details/43058849 主要是远程安装oracle11g需要用到这个东西: 进入系统依次执行下列命令: #查 ...

动态加载Ribbon功能区

动态加载Ribbon功能区的更多相关文章

随机推荐

热门专题