Ribbon 开发利器－Ribbon Commander

守柔

至此，Ribbon 开发利器－Ribbon Commander的介绍告一个段落，无论对各位看官是否有所帮助，也算一个功德。不敢独享，将学习文档保存成Word文档，一并上传。并附上Ribbon Commander内置VBA示例文档，供参考。
Ribbon 开发利器.zip (431.22 KB, 下载次数: 3608)

2015-7-18 14:41 上传

点击文件名下载附件
Ribbon 开发利器

VBA_Ribbon_Samples.rar (17.96 KB, 下载次数: 2436)

2015-7-18 14:43 上传

点击文件名下载附件
VBA_Ribbon_Samples

守柔

四 Ribbon Commander的下载、安装与部署
借助Ribbon Commander框架，Office专业开发人员和普通Excel用户都可以使用自定义的、互动的Ribbon界面来增强Office/Excel可用性。
定制动态直观的功能区的复杂程度大大降低。VBA不再需要使用复杂的XML就可以成功地构建Ribbon。Ribbon菜单还可以使用保存在OpenXML中的自定义图像。
由于RC并非是一款免费插件（非喜勿喷），但它提供了一个月的试用期。感兴趣的坛友可以下载并安装这款软件，从我的实际试用情况来看，除了本身的对象库的使用外，也学习到了很多有益的启发，比如软件的架框处理，软件的界面设计等，这部分的体会，可以在后续的开发实践中进行应用。
1 下载
软件下载地址：http://www.ribboncommander.com/
2 安装
 双击“RibbonCommander.msi”或者右击后选择“安装”即可。
 仔细阅读许可协议选中复选框，如果您愿意接受安装的话。
 点击“经典”推荐安装所有组件或“定制”来选择排除一个或多个可选组件。
 点击“安装”（需要管理员权限)。
3 部署
对于部署到客户计算机中时，可以考虑不安装以下加载项，这样可以禁止EXCEL中出现无关项目。
 Ribbon Commander Framework add-in;
 Ribbon Commander Framework Add-in (UI)
4 RC Tab
OK了之后，我们可以看到在Excel功能区出现了如图 6所示的RC选项卡。

RC选项卡

图 6 RC选项卡
通过Add-in Manager(加载宏管理器)，RC还为我们提供了游戏类、模板类、引用类、开发类等六大类共18款产品供下载使用。此处重点罗列一下开发类的产品，如图 7所示。

开发工具类产品列表

图 7　开发工具类产品列表
5 开发工具介绍
各开发工具的功能概述如图 8所示。

开发工具及其功能概述

图 8　RC 开发工具及其功能概述
因本文英文水平太次，不作具体翻译了。
5.1 Dynamic Icon Browser
动态图标浏览，内置7849个imageMso,主要用于Ribbonx中的imageMso调用，UI如图 9所示。

Dynamic Icon Browser

图 9　Dynamic Icon Browser选项卡
5.2 Macro Mover
在工作簿间移动VBA工程，UI如图 10所示。

Macro Mover

图 10　Macro Mover选项卡
5.3 Password Protection Remover Pro
删除密码，UI如图 11所示。

Protection Remover Pro

图 11　Protection Remover Pro选项卡
5.4 Password Recovery
密码恢复，UI如图 12所示。

Password Recovery

图 12　Password Recovery选项卡
5.5 Unviewable+ VBA
深度隐藏VBA代码，UI如图 13所示。。

Unviewable+ VBA

图 13　Unviewable +选项卡
5.6 VBA RC Toolkit
VBA工具包，UI如图 14所示。

VBA RC Toolkit

图 14　VBA RC Toolkit选项卡

守柔

三、动态创建菜单（Ribbon Commander学习笔记之三）
在CustomUI.xml中，要创建一个动态的菜单，不能直接使用Menu控件，而应该使用dynamicMenu，通过VBA回调反馈给控件XML代码从而实现在运行时创建菜单。反观利用RC组件创建动态菜单时，方法与Office 2003无异。
模块名：mdlRCDynamicMenu
''''引用 "IlvdaUK Ribbon Commander V1.1"
Private Sub RCDynamicMenu()
''''自定义功能区之动态菜单
    Dim myUI As RibbonCommander.rxCustomUI
    Dim myTab As RibbonCommander.rxTab
    Dim myGroup As RibbonCommander.rxGroup
    Dim myMenu As RibbonCommander.rxMenu
    Dim myButton As RibbonCommander.rxButtonRegular
    Dim astrNames(1 To 4, 1 To 2) As String
    Dim I As Integer
    astrNames(1, 1) = "Access"
    astrNames(2, 1) = "Outlook"
    astrNames(3, 1) = "PowerPoint"
    astrNames(4, 1) = "Word"
    astrNames(1, 2) = "MicrosoftAccess"
    astrNames(2, 2) = "MicrosoftOutlook"
    astrNames(3, 2) = "MicrosoftPowerPoint"
    astrNames(4, 2) = IIf(Val(Application.Version) > 12, "MindMapExportWord", "FileSaveAsWordDocx")
    Set myUI = RibbonCommander.rxCustomUI.Create("MS", "Example for RC", DispatchScope_global)     ''''创建一个功能区(全局)
    With myUI
        .Clear    ''''清空
        Set myTab = .ribbon.tabs.Add(New rxTab)   ''''创建一个Tab(选项卡)
        myTab.Label = "MS"
        Set myGroup = myTab.groups.Add(New rxGroup)    ''''创建一个Group(组)
        myGroup.Label = "Ms Office"
        Set myMenu = myGroup.Menus.Add(New rxMenu)    ''''创建一个Menu(菜单)
        With myMenu
            .Label = "Office.RC"
            .Size = rxsLarge
            .itemSize = rxsLarge
            .imageMso = "ShareProjectOnline"
            .menuSeparators.Add(New rxMenuSeparator).Title = "Microsoft Office"    ''''创建一个菜单分隔条
            For I = 1 To UBound(astrNames, 1)    ''''遍历数组行
                Set myButton = .Buttons.Add(New rxButtonRegular)    '''创建一个按钮
                With myButton
                    .Label = astrNames(I, 1)
                    .Tag = .Label
                    .imageMso = astrNames(I, 2)
                    .OnAction = myUI.make_delegate("mySub4")
                End With
            Next
        End With
        .Refresh    ''''刷新功能区
    End With
End Sub
Private Sub mySub4(control As IRibbonControl)
''''回调,单击按钮时执行的过程
    Select Case UCase$(control.Tag)
    Case "ACCESS"
        Application.ActivateMicrosoftApp xlMicrosoftAccess
    Case "OUTLOOK"
        Application.ActivateMicrosoftApp xlMicrosoftMail
    Case "POWERPOINT"
        Application.ActivateMicrosoftApp xlMicrosoftPowerPoint
    Case "WORD"
        Application.ActivateMicrosoftApp xlMicrosoftWord
    End Select
End Sub
Private Sub RemoveCustomUI()
''''删除自定义功能区
    On Error Resume Next
    Dim oUI As RibbonCommander.rxCustomUI
    For Each oUI In rxCustomUI.globalCustomUIs
        If (oUI.contextId = "MS") Then rxCustomUI.globalCustomUIs.Remove oUI
    Next
End Sub
运行后的结果如图 5所示。

图 5　RC动态创建菜单

上附件：
Custom UI Example.zip (31.9 KB, 下载次数: 1000)

2015-7-12 06:27 上传

点击文件名下载附件
Custom UI for RC

守柔

二、自定义功能区的实例对照
以下代码用于比照Excel 2003中的菜单开发，Excel 2007中自定义功能区的开发以及Ribbon Commander对于自定义功能区的开发。
示例目的：为Excel自定义一个工具栏或者选项卡，创建一组按钮，单击按钮以运行相应的宏。
1 Excel 2003下的自定义菜单
模块名:mdlExample
Option Explicit
Private Sub CustomUI2003()
''''创建自定义按钮
    Dim myBar As Office.CommandBar
    Dim myPopup As Office.CommandBarPopup
    Dim myButton As Office.CommandBarButton
    Dim vntButtonNames(1 To 4, 1 To 2) As Variant
    Dim I As Integer
    vntButtonNames(1, 1) = "Access"
    vntButtonNames(2, 1) = "Outlook"
    vntButtonNames(3, 1) = "PowerPoint"
    vntButtonNames(4, 1) = "Word"
    vntButtonNames(1, 2) = 264
    vntButtonNames(2, 2) = 6225
    vntButtonNames(3, 2) = 267
    vntButtonNames(4, 2) = 42
    Set myBar = Application.CommandBars.Add(Name:="Microsoft", Position:=msoBarTop, Temporary:=True)    ''''创建工具栏
    Set myPopup = myBar.Controls.Add(Type:=msoControlPopup)    ''''创建子菜单
    With myPopup
        .Caption = "Office"
        For I = 1 To 4
            Set myButton = .Controls.Add(Type:=msoControlButton)    ''''创建按钮
            With myButton
                .Caption = vntButtonNames(I, 1)
                .Tag = vntButtonNames(I, 1)
                .FaceId = vntButtonNames(I, 2)
                .Style = msoButtonIconAndCaption
                .OnAction = "mySub"
            End With
        Next
    End With
    myBar.Visible = True    ''''显示工具栏
End Sub
Private Sub mySub()
    Select Case UCase$(Application.CommandBars.ActionControl.Tag)
    Case "ACCESS"
        Application.ActivateMicrosoftApp xlMicrosoftAccess
    Case "OUTLOOK"
        Application.ActivateMicrosoftApp xlMicrosoftMail
    Case "POWERPOINT"
        Application.ActivateMicrosoftApp xlMicrosoftPowerPoint
    Case "WORD"
        Application.ActivateMicrosoftApp xlMicrosoftWord
    End Select
End Sub
Private Sub RemoveMenu()
''''删除自定义工具栏
    On Error Resume Next
    Application.CommandBars("Microsoft").Delete
End Sub
运行结果如图 2所示。

CustomUI 2003

图 2　自定义菜单在Excel 2010中的截图
完成此功能约48行代码。
2 Excel 2007下的自定义功能区
2.1 XML代码
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" >
  <ribbon>
    <tabs>
      <tab id="tabMicrosoft"  label="Microsoft" >
          <group id="groupOffice" label="Ms Office">
           <gallery id="galOffice"
                                 label="Office"
                                 columns="1"
                                 rows="10"
                                 itemWidth="30"
                                 itemHeight="32"
                                 getItemCount="GetGalleryItemCount"
                                 getItemLabel="GetGalleryItemLabel"
                                 getItemImage="GetGalleryItemImage"
                                
                                 showItemImage="true"
                                 showItemLabel="true"
                                 size="normal" />
          </group>
     </tab>
   </tabs>
  </ribbon>
</customUI>
2.2 VBA中的回调
模块名:mdl2007
Private mvntNames As Variant ''''模块级变量,二维数组,储存按钮名称和图标
Private Sub GetGalleryItemCount(control As IRibbonControl, ByRef returnedVal)
''''Callback for galOffice getItemCount,回调,动态加载列表条目数量
    If IsArray(mvntNames) = False Then LoadItemNames
    returnedVal = UBound(mvntNames)
End Sub
Private Sub GetGalleryItemLabel(control As IRibbonControl, index As Integer, ByRef returnedVal)
''''Callback for galOffice getItemLabel,回调,动态加载列表条目标签
    returnedVal = mvntNames(index + 1, 1) ''''index索引从0开始
End Sub
Private Sub GetGalleryItemImage(control As IRibbonControl, index As Integer, ByRef returnedVal)
''''Callback for galOffice getItemImage,回调,动态加载列表条目图标
    returnedVal = mvntNames(index + 1, 2) ''''index索引从0开始
End Sub
Private Sub mySub(control As IRibbonControl, id As String, index As Integer)
''''Callback for galOffice onAction,回调,单击列表条目时执行的过程
    Select Case UCase$(index)
    Case 0
        Application.ActivateMicrosoftApp xlMicrosoftAccess
    Case 1
        Application.ActivateMicrosoftApp xlMicrosoftMail
    Case 2
        Application.ActivateMicrosoftApp xlMicrosoftPowerPoint
    Case 3
        Application.ActivateMicrosoftApp xlMicrosoftWord
    End Select
End Sub
Private Sub LoadItemNames()
''''动态加载一个二维数组,用于指示加载的按钮名称和图标
    ReDim mvntNames(1 To 4, 1 To 2)
    mvntNames(1, 1) = "Access"
    mvntNames(2, 1) = "Outlook"
    mvntNames(3, 1) = "PowerPoint"
    mvntNames(4, 1) = "Word"
    mvntNames(1, 2) = "MicrosoftAccess"
    mvntNames(2, 2) = "MicrosoftOutlook"
    mvntNames(3, 2) = "MicrosoftPowerPoint"
    mvntNames(4, 2) = IIf(Val(Application.Version) > 12, "MindMapExportWord", "FileSaveAsWordDocx")
End Sub
运行结果如图 3所示。

CustomUI 2007

图 3　自定义功能区在Excel 2010中的截图
完成此功能约需58行代码（XML+VBA）。
3 利用Ribbon Commander库生成自定义功能区
模块名:mdlRC
Option Explicit
''''引用 "IlvdaUK Ribbon Commander V1.1"
Private Sub CustomUIRC()
''''自定义功能区
    Dim myUI As RibbonCommander.rxCustomUI
    Dim myTab As RibbonCommander.rxTab
    Dim myGroup As RibbonCommander.rxGroup
    Dim myGallery As RibbonCommander.rxGallery
    Dim oItem As RibbonCommander.rxItem
    Dim astrNames(1 To 4, 1 To 2) As String
    Dim I As Integer
    astrNames(1, 1) = "Access"
    astrNames(2, 1) = "Outlook"
    astrNames(3, 1) = "PowerPoint"
    astrNames(4, 1) = "Word"
    astrNames(1, 2) = "MicrosoftAccess"
    astrNames(2, 2) = "MicrosoftOutlook"
    astrNames(3, 2) = "MicrosoftPowerPoint"
    astrNames(4, 2) = IIf(Val(Application.Version) > 12, "MindMapExportWord", "FileSaveAsWordDocx")
    Set myUI = RibbonCommander.rxCustomUI.Create("MS", "Example for RC", DispatchScope_global)     ''''创建一个功能区(全局)
    With myUI
        .Clear    ''''清空
        Set myTab = .ribbon.tabs.Add(New rxTab)   ''''创建一个Tab(选项卡)
        myTab.Label = "MS"
        Set myGroup = myTab.groups.Add(New rxGroup)    ''''创建一个Group(组)
        myGroup.Label = "Ms Office"
        Set myGallery = myGroup.galleries.Add(New rxGallery)   ''''创建一个Gallery(库)
        With myGallery
            .Label = "Office.RC"
            .Columns = 1
            .itemWidth = 30
            .itemHeight = 32
            .showImage = rxFalse
            .OnAction = myUI.make_delegate("mySub3")
            For I = 1 To UBound(astrNames, 1)    ''''遍历数组行
                Set oItem = .items.Add(New rxItem)
                oItem.Label = astrNames(I, 1)
                oItem.imageMso = astrNames(I, 2)
            Next
        End With
        .Refresh    ''''刷新功能区
    End With
End Sub
Private Sub mySub3(control As IRibbonControl, id As String, index As Integer)
''''回调,单击列表条目时执行的过程
    Select Case UCase$(index)
    Case 0
        Application.ActivateMicrosoftApp xlMicrosoftAccess
    Case 1
        Application.ActivateMicrosoftApp xlMicrosoftMail
    Case 2
        Application.ActivateMicrosoftApp xlMicrosoftPowerPoint
    Case 3
        Application.ActivateMicrosoftApp xlMicrosoftWord
    End Select
End Sub
Private Sub RemoveCustomUI()
''''删除自定义功能区
    On Error Resume Next
    Dim oUI As RibbonCommander.rxCustomUI
    For Each oUI In rxCustomUI.globalCustomUIs
        If (oUI.contextId = "MS") Then rxCustomUI.globalCustomUIs.Remove oUI
    Next
End Sub
运行结果如图 4所示。

CustomUI RC

图 4　自定义功能区在Excel 2010中的截图
完成此功能约需60行代码（XML+VBA）。
从上述几个实例对比，可以看出Ribbon Commander(RC)具有以下优点：
RC创建CustomUI时，完全脱离CustomUI.xml文件，直接在VBA中进行，所见即所得；
RC创建CustomUI的VBA代码写法，与Office 2003时的自定义工具栏极为相似。
另外，通过RC创建的CustomUI，具有大量的属性和方法，可以直接进行动态控制或者访问。