细品RibbonX(1-59) (转)

jiulongpo · 发表于 2012-7-27 19:09

本帖最后由 jiulongpo 于 2012-8-6 20:54 编辑

转自: http://www.excelperfect.com/index.php/2009/11/12/ribbonxstudy34/
细品RibbonX(34)：menuSeparator元素详解

menuSeparator元素有些像separator元素和labelControl元素的混合，可以为特定类型的菜单控件创建一条水平线，并且能够提供文本。这使得能够在菜单项之间添加标题。

1、menuSeparator元素必需的属性

menuSeparator元素需要下表1所列的id属性之一。

表1：menuSeparator元素必需的属性

属性	何时使用
id	当创建自已的菜单分隔条时
idQ	当在命名空间之间创建共享的菜单分隔条时

2、带有回调签名的可选的静态属性和动态属性

menuSeparator控件相对于已存在的控件的放置需要使用下表2列出的insert属性之一。

表2：menuSeparator元素可选的insert属性

INSERT属性	允许值	默认值	何时使用
insertAfterMso	有效的Mso组	在组末尾插入	在Microsoft控件之后插入
insertBeforeMso	有效的Mso组	在组末尾插入	在Microsoft控件之前插入
insertAfterQ	有效的组idQ	在组末尾插入	在共享的命名空间控件之后插入
insertBeforeQ	有效的组idQ	在组末尾插入	在共享的命名空间控件之前插入

menuSeparator元素接受下表3所列的title元素或等价的回调。

表3：menuSeparator元素可选的属性和回调

静态属性	动态属性	允许值	默认值	动态属性的VBA回调签名
title	getTitle	1至1024个字符	line	Sub GetTitle(control As IRibbonControl, ByRef returnedVal)

3、menuSeparator元素允许的子对象

menuSeparator元素不支持任何类型的子控件。

4、menuSeparator元素的父对象

在下列任何控件内都能放置menuSeparator控件：

n menu

n officeMenu

n dynamicMenu

5、创建自定义的menuSeparator元素

（1）创建一个新的.xlsx文件，并将其保存为Excel menuSeparator Example.xlsx。

（2）关闭该文件并在CustomUI Editor中打开。

（3）输入下列XML代码：

<tabs>

<tab id=“tabDemo“

label=“Demo“

insertBeforeMso=“TabHome“>

<group id=“grpSaveFiles“

label=“Save File“>

<menu id=“mnuNewFile“

label=“Save As File Type“

size=“large“

imageMso=“FileCompatibilityChecker“>

<menuSeparator id=“rxmSep01“

title=“Save in 2007 format“/>

<menuSeparator id=“rxmSep03“

title=“Save in 97-2003 format“/>

<menuSeparator id=“rxmSep04“

title=“Save in other format“/>

</menu>

</group>

</tab>

</tabs>

</ribbon>

</customUI>

注意，rxmSep02没有指定title属性，这将创建一条细线来分隔菜单项，而不是带有线条的标题栏。

（4）保存后关闭CustomUI Editor。

（5）在Excel中重新打开该文件，结果如下图所示。

jiulongpo · 发表于 2012-7-27 19:11

本帖最后由 jiulongpo 于 2012-8-7 20:55 编辑

转自: http://www.excelperfect.com/index.php/2009/11/13/ribbonxstudy35/
细品RibbonX(35)：dialogBoxLauncher元素详解

dialogBoxLauncher是一个小的、几乎看不见的、能够在组中使用的“小玩意”。在界面上是一个带有箭头的小正方形，位于组的右下角。

在大多数情形下，dialogBoxLauncher通过启动内置对话框，提供给用户更多的选项。当然，您也可以创建自已的用户窗体，提供给用户额外的选项或者帮助文档。

1、dialogBoxLauncher元素必需和可选的属性

dialogBoxLauncher元素没有任何必需的和可选的属性，其依赖于拥有属性的子对象。

2、dialogBoxLauncher元素允许的子对象

dialogBoxLauncher是一个容器，因此不仅接受子对象，而且需要子对象实现功能。dialogBoxLauncher必须具有且仅有一个按钮作为其子对象。实际上，按钮的作用是启动应用程序对话框。

3、dialogBoxLauncher元素的父对象

使用dialogBoxLauncher的唯一的地方是组。

4、dialogBoxLauncher元素使用示例

在UI中，有三种不同的方式实现dialogBoxLauncher：

n 使用Microsoft已经使其可用的缺省的对话框启动器之一

n 创建自定义启动器来使用Microsoft的其它对话框之一

n 创建自定义启动器来启动自定义用户窗体

内置的对话框启动器

在自定义组中添加对话框启动器最简单的方式是使用Microsoft内置的对话框启动器按钮作为其子对象。

（1）创建一个新的.xlsx文件，并将其保存为Excel dialogBoxLauncher Example.xlsx。

（2）关闭该文件并在CustomUI Editor中打开。

（3）输入下列XML代码：

<customUI xmlns=“http://schemas.microsoft.com/office/2006/01/customui“>
<ribbon
startFromScratch=“false“>
<tabs>
<tab id=“rxtabDemo“
label=“Demo“
insertBeforeMso=“TabHome“>
<group id=“rxgrpTest“
label=“Test“>
<box id=“rxboxFormat“>
<comboBox idMso=“Font“ />
<comboBox idMso=“FontSize“ />
</box>
<dialogBoxLauncher>
<button idMso=“FormatCellsFontDialog“/>
</dialogBoxLauncher>
</group>
</tab>
</tabs>
</ribbon>
</customUI>

复制代码

注意，dialogLauncher仅仅是包含一个按钮的壳。使用dialogBoxLauncher的技巧是确保使用了正确的内置对话框按钮。

（4）保存后关闭CustomUI Editor。

（5）在Excel中重新打开该文件，单击“Test”组右下角的对话框启动器，结果如下图所示。

使用内置对话框的自定义对话框启动器

（1）创建一个新的.xlsm文件，并将其保存为Excel dialogBoxLauncher Example1.xlsm。

（2）关闭该文件并在CustomUI Editor中打开。

（3）输入下列XML代码：

<customUI xmlns=“http://schemas.microsoft.com/office/2006/01/customui“>
<ribbon
startFromScratch=“false“>
<tabs>
<tab id=“rxtabDemo“
label=“Demo“
insertBeforeMso=“TabHome“>
<group id=“rxgrpTest“
label=“Test“>
<box id=“rxboxFormat“>
<comboBox idMso=“Font“ />
<comboBox idMso=“FontSize“ />
</box>
<dialogBoxLauncher>
<button id=“rxbtnDialog“
onAction=“rxbtnDialog_click“
screentip=“Launch Dialog“/>
</dialogBoxLauncher>
</group>
</tab>
</tabs>
</ribbon>
</customUI>

复制代码

注意，没有与按钮相关的图像。即使您提供了按钮图像，它也会被对话框启动器图像覆盖。

（4）生成回调签名并复制，保存后关闭CustomUI Editor。

（5）在Excel中重新打开该文件，打开VBE，插入一个新模块，粘贴回调签名代码。

（6）编写回调代码：

‘rxbtnDialog onAction回调

Sub rxbtnDialog_click(control As IRibbonControl)

Application.Dialogs(xlDialogFormatFont).Show

End Sub

编写代码较困难的是找到合适的对话框常量（本例中为xlDialogFormatFont），您可以使用对象浏览器或者智能感知功能来查找。

（7）关闭工作簿后重新打开。单击“Test”组右下角的对话框启动器，将出现“字体”对话框。

当然，您也可以修改回调代码中的对话框常量，调用其它对话框。

使用自定义用户窗体的自定义对话框

（1）创建一个新的.xlsm文件，并将其保存为Excel dialogBoxLauncher Example2.xlsm。

（2）关闭该文件并在CustomUI Editor中打开。

（3）输入下列XML代码（即沿用前一示例）：

<customUI xmlns=“http://schemas.microsoft.com/office/2006/01/customui“>
<ribbon
startFromScratch=“false“>
<tabs>
<tab id=“rxtabDemo“
label=“Demo“
insertBeforeMso=“TabHome“>
<group id=“rxgrpTest“
label=“Test“>
<box id=“rxboxFormat“>
<comboBox idMso=“Font“ />
<comboBox idMso=“FontSize“ />
</box>
<dialogBoxLauncher>
<button id=“rxbtnDialog“
onAction=“rxbtnDialog_click“
screentip=“Launch Dialog“/>
</dialogBoxLauncher>
</group>
</tab>
</tabs>
</ribbon>
</customUI>

复制代码

（4）生成回调签名并复制，保存后关闭CustomUI Editor。

（5）在Excel中重新打开该文件，打开VBE，插入一个新模块，粘贴回调签名代码。

（6）插入一个新的用户窗体，在其中添加标签和按钮。修改标签和按钮，如下图所示。

添加按钮单击事件：

Private Sub CommandButton1_Click()

Unload Me

End Sub

表明当单击按钮后卸载用户窗体。

（7）编写回调代码，使用户单击对话框启动器时启动自定义的用户窗体：

‘rxbtnDialog onAction回调

Sub rxbtnDialog_click(control As IRibbonControl)

UserForm1.Show

End Sub

（8）关闭工作簿后重新打开。单击“Test”组右下角的对话框启动器，将显示刚才自定义的用户窗体。

jiulongpo · 发表于 2012-7-27 19:12

本帖最后由 jiulongpo 于 2012-8-6 20:56 编辑

转自: http://www.excelperfect.com/index.php/2009/11/17/ribbonxstudy36/
细品RibbonX(36)：keytip属性详解

keytip能够使用户通过键盘导航功能区。这是不喜欢使用鼠标的用户非常喜欢的功能，也有助于使用户界面更易访问。
按Alt键将进入键击导航模式，显示可用的键击名，能使用户导航选项卡、组和控件层次。简单地按下代表某命令的字符，将激活该命令。
keytip属性接受至多三个字符。由于其目的是使UI通过键盘比使用鼠标访问更有效，因此应该使其尽可能简短。并且，键击名与其要激活的控件名越不相关，用户要记住也就越难，因此就越不会使用。
如下图所示，按下Alt键，进入键击导航模式。

如果再按下代表开始选项卡的H键，将呈现该选项卡每个命令的快捷键，如下图所示。

然后，按下相应的字母键或数字键，就会执行相应的命令。
虽然记住所有的命令是不可能的，但是Microsoft已经为我们提供了一种容易的显示键击的方式。
创建keytip
要创建自已的keytip属性，只需在XML结构的父元素中添加适当的keytip=”abc”标签。
（1）创建一个新的.xlsx文件，并将其保存为Excel keytip Example.xlsx。
（2）关闭该文件并在CustomUI Editor中打开。
（3）输入下列XML代码：

<tabs>

<tab id=”rxtabDemo”

label=”Demo”

keytip=”cD”

insertBeforeMso=”TabHome”>

<group id=”rxgrpDemo”

label=”Demo Group”>

<button id=”rxbtnDemo”

label=”Testing”

keytip=”B”

imageMso=”HappyFace”/>

</group>

</tab>

</tabs>

</ribbon>

</customUI>
上述代码简单地创建了一个包含笑脸按钮的新组。
（4）保存后关闭CustomUI Editor。
（5）在Excel中重新打开该文件，按下Alt键之后，结果如下图所示。

jiulongpo · 发表于 2012-7-27 19:14

本帖最后由 jiulongpo 于 2012-8-6 20:56 编辑

转自: http://www.excelperfect.com/index.php/2009/11/24/ribbonxstudy37/
细品RibbonX(37)：screentip属性和supertip属性详解

当用户悬浮鼠标在控件上时，screentip属性和supertip属性能够为控件提供有帮助的文本，与用户共享信息，指出该控件的目的。使用screentip告诉用户控件是什么，使用supertip提供稍微更长一点信息，解释该控件做什么。下图为一个示例。

screentip部分是框顶部给出键盘快捷键的粗线，而supertip是其剩下的信息。
然而，Microsoft不会让我们在supertip中添加自已的图像
创建screentip属性和supertip属性
（1）创建一个新的.xlsx文件，并将其保存为CustomKeytip.xlsx。
（2）关闭该文件并在CustomUI Editor中打开。
（3）输入下列XML代码：
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"><ribbon startFromScratch="false">
<tabs>
      <tab id="rxtabDemo"
            label="Demo"
            keytip="cD"
            insertBeforeMso="TabHome">
            <group id="rxgrpDemo"
                     label="Demo Group">
               <button id="rxbtnDemo"
                  label="Testing"
                  screentip="This is very accurate information!"
                  supertip="It tells you nothing... which is exactly what this button does!"
                  imageMso="HappyFace"/>
            </group>
      </tab>
</tabs>
</ribbon>
</customUI>

（4）保存后关闭CustomUI Editor。
（5）在Excel中重新打开该文件，将鼠标悬浮在自定义按钮上，结果如下图所示。

当在XML中使用跨多行的文本时，tab字符能够用于排列XML代码而不会影响用户看到的文字。然而，输入额外的硬回车或空格将在属性显示的文本中插入空格。
如果希望在输出的文本中强迫换行，则需要在XML中添加字符。这五个字符强迫在输出中硬回车。

jiulongpo · 发表于 2012-7-27 19:17

本帖最后由 jiulongpo 于 2012-8-6 20:57 编辑

转自: http://www.excelperfect.com/index.php/2009/11/25/ribbonxstudy38/
细品RibbonX(38)：覆盖内置控件的属性

很多时候，我们都希望使用Microsoft的内置控件，但有时其标签并不一定反映出我们的目的，因此需要重命名它们。
例如，在Excel中，“开始”选项卡的键击键是“H”，我们想将其修改为“S”。XML代码如下：
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="false">
      <tabs>
         <tab idMso="TabHome"
            keytip="S">
         </tab>
      </tabs>
</ribbon>
</customUI>

结果如下图所示。

也能够修改其它控件的一些内置属性，最常用的是重命名按钮或者隐藏其标签。
然而，Microsoft不允许修改内置组的任何属性。例如，下面的XML代码：
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="false">
      <tabs>
            
            <tab id="rxTabHome">
                     <group idMso="GroupFont"
                              visible="false"/>
            </tab>
      </tabs>
</ribbon>
</customUI>

原本想使“开始”选项卡中的“字体”组隐藏，但结果“字体”组仍然存在于界面中。如果能够使组隐藏，那么我们就可以将选项卡中不常使用的组隐藏起来了。

jiulongpo · 发表于 2012-7-27 19:20

本帖最后由 jiulongpo 于 2012-8-6 20:57 编辑

转自: http://www.excelperfect.com/index.php/2009/11/27/ribbonxstudy39/
细品RibbonX(39)：技巧—使用VBA自定义功能区元素属性

除了使用类创建自定义属性外，也可以为许多对象（例如工作簿、工作表，等）创建自定义属性。此外，在给对象定义自定义属性之后，属性作为对象的成员被公开，例如：
ThisWorkbook.MyRibbon

正如所见，从父对象直接引用UI对象非常容易，当引用回Ribbon对象时可以省去很多麻烦。考虑到用户经常同时打开多个应用程序，每个程序都会有一个名为MyRibbon的对象，因此让代码可以清楚地指定引用的确切对象是至关重要的。
设置自定义属性
设置内置对象的自定义属性与使用标准的类模块创建自定义属性相同。唯一不同的是，属性必须驻留在其容器对象里，以便属性能够作为该指定对象的成员公开。
可以使用自定义属性模拟上下文选项卡来容易地访问可视的属性、确定标签值，等等。下面的示例中，我们开发自定义属性来控制可见性。该示例实现下列功能：

显示/隐藏与工作表相关的选项卡的自定义属性
两个复选框，控制两个内置组的可见性（字体和表）

本例中，关键属性是getVisible属性，我们将使之变成自定义属性以便通过该属性修改其值。注意，通过这些自定义属性将显示/隐藏位于不同选项卡里的组。

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"
onLoad="rxIRibbonUI_onLoad">
<ribbon startFromScratch="false">
<tabs>
<tab id="rxtabSheet"
label="Sheet Tab"
insertBeforeMso="TabHome"
getVisible="rxtabSheet_getVisible">
<group id="rxgrp1"
label="My Custom Group">
</group>
</tab>
<tab idMso="TabHome"
label="Modified Home">
<group id="rxgrp2"
insertBeforeMso="GroupClipboard"
label="My CheckBox">
<checkBox id="rxchkHideFontGroup"
getLabel="rxchkHideFontGroup_getLabel"
onAction="rxchkHideFontGroup_Click"
screentip="Hide the Font Group"
supertip="Click here to hide/unhide the Font Group"/>
<checkBox id="rxchkHideTableGroup"
getLabel="rxchkHideTableGroup_getLabel"
onAction="rxchkHideTableGroup_Click"
screentip="Hide the Tables Group"
supertip="Click here to hide the Tables Groups"/>
</group>
</tab>
<tab idMso="TabHome">
<group idMso="GroupFont"
getVisible="GroupFont_getVisible"/>
</tab>
<tab idMso="TabInsert">
<group idMso="GroupInsertTablesExcel"
getVisible="GroupInsertTablesExcel_getVisible"/>
</tab>
</tabs>
</ribbon>
</customUI>

复制代码

上述代码创建了“Modified Home”选项卡，在剪贴板前添加了“My CheckBox”组，并且添加了一个名为“Sheet Tab”的空选项卡，界面如下图所示。

接下来，定义属性。在ThisWorkbook对象中定义下列属性：

Private pRibbonUI As IRibbonUI
Private pblnGrpTblVisible As Boolean
Private pblnGrpFontVisible As Boolean
'设置Ribbon对象,使之能够作为ThisWorkbook的成员访问
Public Property Let rxIRibbonUI(iRib As IRibbonUI)
Set pRibbonUI = iRib
End Property
Public Property Get rxIRibbonUI() As IRibbonUI
Set rxIRibbonUI = pRibbonUI
End Property
'设置可见性属性,使之能够作为ThisWorkbook的成员访问
Public Property Let rxIRibbonUIGroupTableVisible( _
ByVal blnVisible As Boolean)
pblnGrpTblVisible = blnVisible
End Property
Public Property Get rxIRibbonUIGroupTableVisible() As Boolean
rxIRibbonUIGroupTableVisible = pblnGrpTblVisible
End Property
Public Property Let rxIRibbonUIGroupFontVisible( _
ByVal blnVisible As Boolean)
pblnGrpFontVisible = blnVisible
End Property
Public Property Get rxIRibbonUIGroupFontVisible() As Boolean
rxIRibbonUIGroupFontVisible = pblnGrpFontVisible
End Property

复制代码

注意，虽然用于决定可见性的这些变量在ThisWorkbook模块，但由于ThisWorkbook对象可以在本工程的任何地方访问，因此可以在该模块之外设置或获取这些属性的值。
在编写回调代码之前，还需要为工作表创建自定义属性，然后使用这些属性来决定与该工作表相关的选项卡是否显示，这里使用工作表Sheet1，当然您可以根据需要修改。
使用下列代码为该工作表设置自定义属性：

Private pglnTabVisible As Boolean
Property Let rxIRibbonUISheetTabVisible(ByVal blnVisible As Boolean)
pglnTabVisible = blnVisible
End Property
Property Get rxIRibbonUISheetTabVisible() As Boolean
rxIRibbonUISheetTabVisible = pglnTabVisible
End Property
Private Sub Worksheet_Activate()
Sheet1.rxIRibbonUISheetTabVisible = True
ThisWorkbook.rxIRibbonUI.Invalidate
End Sub
Private Sub Worksheet_Deactivate()
Sheet1.rxIRibbonUISheetTabVisible = False
ThisWorkbook.rxIRibbonUI.Invalidate
End Sub

复制代码

注意，现在可以利用我们为ThisWorkbook创建的自定义属性来使Ribbon无效。我们不再将该属性作为普通的对象，相反我们将其作为属性即ThisWorkbook对象的一个成员。因此，该UI是ThisWorkbook的一部分。
最后，编写回调代码：

Sub rxIRibbonUI_onLoad(ribbon As IRibbonUI)
ThisWorkbook.rxIRibbonUI = ribbon
End Sub
Sub rxtabSheet_getVisible(control As IRibbonControl, ByRef returnedVal)
returnedVal = Sheet1.rxIRibbonUISheetTabVisible
End Sub
Sub rxchkHideFontGroup_Click(control As IRibbonControl, pressed As Boolean)
ThisWorkbook.rxIRibbonUIGroupFontVisible = pressed
ThisWorkbook.rxIRibbonUI.Invalidate
End Sub
Sub rxchkHideTableGroup_Click(control As IRibbonControl, pressed As Boolean)
ThisWorkbook.rxIRibbonUIGroupTableVisible = pressed
ThisWorkbook.rxIRibbonUI.Invalidate
End Sub
Sub GroupFont_getVisible(control As IRibbonControl, ByRef returnedVal)
returnedVal = True
If control.ID = "GroupFont" Then
returnedVal = Not (ThisWorkbook.rxIRibbonUIGroupFontVisible)
Else
ThisWorkbook.rxIRibbonUI.Invalidate
End If
End Sub
Sub GroupInsertTablesExcel_getVisible(control As IRibbonControl, ByRef returnedVal)
returnedVal = True
If control.ID = "GroupInsertTablesExcel" Then
returnedVal = Not (ThisWorkbook.rxIRibbonUIGroupTableVisible)
Else
ThisWorkbook.rxIRibbonUI.Invalidate
End If
End Sub
Sub rxchkHideFontGroup_getLabel(control As IRibbonControl, ByRef returnedVal)
Select Case ThisWorkbook.rxIRibbonUIGroupFontVisible
Case True
returnedVal = "Show Font Group"
Case False
returnedVal = "Hide Font Group"
End Select
End Sub
Sub rxchkHideTableGroup_getLabel(control As IRibbonControl, ByRef returnedVal)
Select Case ThisWorkbook.rxIRibbonUIGroupTableVisible
Case True
returnedVal = "Show Table Group"
Case False
returnedVal = "Hide Table Group"
End Select
End Sub

复制代码

现在，你可以通过自定义属性来定义与UI对象相关的不同的属性。

jiulongpo · 发表于 2012-7-27 19:27

本帖最后由 jiulongpo 于 2012-8-6 20:58 编辑

转自: http://www.excelperfect.com/index.php/2009/11/30/ribbonxstudy40/
细品RibbonX(40)：技巧—在注册表中保存值和从注册表中获取值

Windows注册表是一个数据库，用于存储与计算机不同方面相关的设置，例如用户设置、应用程序设备、硬件设置，等等。
VBA提供了与注册表直接交互的方式，这不仅允许我们获取其它程序和硬件的信息，而且也能够使我们选择应用程序中的重要信息并将其存储在注册表中。
本文中，我们的目的是存储和获取关于UI的信息，我们将使用专门为VBA（和VB）配置而留出的部分。并且，我们不需要使用Windows APIs。
VBA提供了用于处理注册表的两个函数：GetSetting和SaveSetting，这两个函数仅能访问下面的注册表句柄键：
HKEY_CURRENT_USER\Software\VB and VBA Program Settings

如下图所示，当切换按钮时，即使关闭了该工程，其状态值仍保存，因此，在重新打开该工程时，按钮的状态为关闭前的状态，不会因为关闭工程而使按钮的状态值丢失。

定义上图所示界面的XML代码如下：

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"
onLoad="rxIRibbonUI_onLoad">
<ribbon startFromScratch="false">
<tabs>
<tab idMso="TabHome">
<group id="rxgrp1"
insertBeforeMso="GroupClipboard"
label="Toggle Custom Tabs">
<toggleButton id="rxtglCustomReview"
label="Toggle Custom Review Tab"
imageMso="ReviewAcceptChangeMenu"
size="large"
getPressed="rxtglCustomReview_getPressed"
onAction="rxtglShared_Click"/>
<separator id="rxsep1"/>
<toggleButton id="rxtglDataHandling"
label="Toggle Data Handling Tab"
imageMso="Consolidate"
size="large"
getPressed="rxtglDataHandling_getPressed"
onAction="rxtglShared_Click"/>
</group>
</tab>
<tab id="rxtabCustomReview"
getVisible="rxtabCustomReview_getVisible"
label="Custom Review"
keytip="K">
<group idMso="GroupClipboard"/>
<group idMso="GroupFont"/>
<group id="rxgrpProofingComments"
label="Proofing and Comments">
<box id="rxbox1" boxStyle="vertical">
<button idMso="Spelling"/>
<button idMso="Thesaurus"/>
<button idMso="TranslationPane"/>
</box>
<separator id="rxsep2"/>
<box id="rxbox2" boxStyle="vertical">
<button idMso="ReviewNewComment"/>
<button idMso="ReviewDeleteComment"
label="Delete Comment"/>
<toggleButton idMso="ReviewShowAllComments"/>
</box>
</group>
<group id="rxgrpChanges"
label="Worksheet related changes">
<box id="rxbox" boxStyle="vertical">
<button idMso="ReviewHighlightChanges"/>
<button idMso="ReviewProtectAndShareWorkbook"/>
<button idMso="ReviewAllowUsersToEditRanges"/>
<button idMso="SheetProtect"/>
</box>
</group>
</tab>
<tab id="rxtabDataHandling"
getVisible="rxtabDataHandling_getVisible"
label="Data Handling"
keytip="Z">
</tab>
</tabs>
</ribbon>
</customUI>

复制代码

代码包含了一些必须由VBA处理的关键回调。设置了getPressed属性，因为它返回从注册表中获取toggleButton的按下状态的回调，状态是true或false。
接下来，处理Click事件（该事件通过OnAction属性定义为共享的回调）。每次单击时，都会将按钮当前状态保存到注册表。
最后，getVisible属性根据toggleButton的状态决定是否选项卡可见。
本例中，将下面的两个VBA函数封装到自已的函数中，这样可以传递参数到自定义函数中，并且在一定程度上能够控制程序：

Function getRegistry(ByVal strKey As String) As Boolean
On Error Resume Next
getRegistry = GetSetting("AddInProject", "TabVisibility", strKey)
If Err > 0 Then getRegistry = False
End Function
Function saveRegistry(ByVal strKey As String, _
ByVal blnSetting As Boolean)
SaveSetting "AddInProject", "TabVisibility", strKey, blnSetting
End Function

复制代码

因为如果键不存在的话，getRegistry函数将返回错误，所以需要添加错误处理以捕获错误。如果发生错误，那么知道该键不存在，getRegistry函数应该返回False。
回调代码如下：

Public gblnShowCustomReviewTab As Boolean
Public gblnShowCustomDataHandlingTab As Boolean
Public gblnCalledOnOpen As Boolean
Public grxIRibbonUI As IRibbonUI
Sub rxIRibbonUI_onLoad(ribbon As IRibbonUI)
Set grxIRibbonUI = ribbon
End Sub
Sub rxtglCustomReview_getPressed(control As IRibbonControl, ByRef returnedVal)
returnedVal = getRegistry("CustomReviewTab")
gblnShowCustomReviewTab = getRegistry("CustomReviewTab")
grxIRibbonUI.InvalidateControl ("rxtabCustomReview")
End Sub
Sub rxtglDataHandling_getPressed(control As IRibbonControl, ByRef returnedVal)
returnedVal = getRegistry("CustomDataHandlingTab")
gblnShowCustomDataHandlingTab = getRegistry("CustomDataHandlingTab")
grxIRibbonUI.InvalidateControl ("rxtabDataHandling")
End Sub
Sub rxtglShared_Click(control As IRibbonControl, pressed As Boolean)
Select Case control.ID
Case "rxtglCustomReview"
gblnShowCustomReviewTab = pressed
saveRegistry "CustomReviewTab", pressed
gblnCalledOnOpen = False
Case "rxtglDataHandling"
gblnShowCustomDataHandlingTab = pressed
gblnCalledOnOpen = False
saveRegistry "CustomDataHandlingTab", pressed
End Select
grxIRibbonUI.Invalidate
End Sub
Sub rxtabCustomReview_getVisible(control As IRibbonControl, ByRef returnedVal)
returnedVal = gblnShowCustomReviewTab
If Not gblnCalledOnOpen Then
If gblnShowCustomReviewTab = True Then Application.SendKeys ("%K{RETURN}")
End If
End Sub
Sub rxtabDataHandling_getVisible(control As IRibbonControl, ByRef returnedVal)
returnedVal = gblnShowCustomDataHandlingTab
If Not gblnCalledOnOpen Then
If gblnShowCustomDataHandlingTab = True Then Application.SendKeys ("%Z{RETURN}")
End If
End Sub

复制代码

现在，就可以试试了！关闭工作簿后再打开，处理控件的设置将根据记录在注册表键中的值更新。

jiulongpo · 发表于 2012-7-27 19:31

本帖最后由 jiulongpo 于 2012-8-6 20:58 编辑

转自: http://www.excelperfect.com/index.php/2009/12/01/ribbonxstudy41/
细品RibbonX(41)：从头开始创建功能区用户界面

从头开始创建用户界面将取消用户界面已经提供的一些易于访问的功能，因此应该谨慎使用。
设置startFromScratch属性
从头开始设计项目的用户界面只需要使用startFromScratch属性，将其值设置为True，XML代码如下：
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="true">
</ribbon>
</customUI>

结果如下图所示：

然而，在界面中仍然有一些可供使用的命令。下列命令在Excel中仍可使用：新建、打开、保存、Excel选项、退出Excel。
此外，还可以使用快速访问工具栏（QAT）中的两个选项：在功能区上方/下方显示快速访问工具栏、功能区最小化。
除了上述已经列出的命令外，虽然从头开始设计用户界面时移除了所有的控件，但没有禁用任何内置的命令，即便这些命令没有在功能区中显示，例如可以使用快捷键Ctrl+c复制区域，使用Ctrl+w关闭文档。
同样，可以使用Office 2003中的加速键访问Excel的“设置单元格格式”对话框，即按下“Alt+O+E”键。

jiulongpo · 发表于 2012-7-27 19:33

本帖最后由 jiulongpo 于 2012-8-6 20:58 编辑

转自: http://www.excelperfect.com/index.php/2009/12/02/ribbonxstudy42/
细品RibbonX(42)：启动时激活功能区中某选项卡

您可能认为所需要做的就是添加一个选项卡，并将其指定放置在“开始”选项卡前面，这样，因为它是功能区中的第一个选项卡，因此会成为默认的选项卡并在打开文档时会自动选择该选项卡。听起来比较合乎逻辑，但事实呢？缺省情况下会选择自定义选项卡，因此只是在“开始”选项卡之前添加自定义选项卡并不意味着因为它是功能区中的第一个选项卡就选择该选项卡，至少在Excel中不是这样。
在启动文档时选择某选项卡需要两步。第一步是在XML代码中定义键击键。第二步是编写一个过程，使用SendKeys方法发送键击键到应用程序，执行在文档启动时选择该选项卡的功能。
第一步：添加XML代码。

<tab id="rxtab"
label="Active Tab"
insertBeforeMso="TabHome"
keytip="UN">

复制代码

第二步：在文档打开时首先发生的onLoad事件中指定选择选项卡的语句。要在装载UI时选择指定的选项卡，使用SendKeys方法，代码如下：

Sub rxIRibbonUI_onLoad(ribbon As IRibbonUI)
Application.SendKeys "%UN{RETURN}"
End Sub

复制代码

百分号代表Alt键，以触发键击键，UN是我们定义的键击键，同时添加了RETURN键以便当选择选项卡时在选项卡里的键击键失去焦点。这样做是因为我们希望该选项卡有焦点，但不希望显示键击键。
下表列出了SendKeys方法中可以使用的组合键。

组合键	符号
ALT	%
CTRL	^
SHIFT	+

可以使用上表列出的键与其它任何键形成组合。下表列出了一些其它的键，在使用SendKeys方法和需要键组合时，可能会发现这些键会有用。虽然不区分大小写，但建议使用大写。
表：一些特别的键及其相应的代码

键	键代码
BACKSPACE	{BACKSPACE}或{BS}
BREAK	{BREAK}
CAPS LOCK	{CAPSLOCK}
DELETE或DEL	{DELETE}或{DEL}
DOWN ARROW	{DOWN}
END	{END}
ENTER	~
ENTER(数字键盘)	{ENTER}
ESC	{ESCAPE}或{ESC}
F1至F15	{F1}至{F15}
HOME	{HOME}
RETURN	{RETURN}
TAB	{TAB}

jiulongpo · 发表于 2012-7-27 19:36

本帖最后由 jiulongpo 于 2012-8-6 20:59 编辑

转自: http://www.excelperfect.com/index.php/2009/12/04/ribbonxstudy43/
细品RibbonX(43)：禁用和重利用功能区中的命令

与以前的版本不一样，Office 2007允许全局地禁用和重利用命令。在过去，禁用命令必需禁用UI中执行该命令的控件的每一单个的实例，这显然是一项巨大的工作。
禁用命令
禁用Office 2007中的命令是非常简单的，最重要的是知道打算禁用的命令的控件名以及这些命令在哪类控件之下。从commands集合中完全禁用某命令，而不是从Ribbon对象和该对象的父容器。试图从父容器里禁用某命令将产生一条错误消息。
例如，假设希望禁用“加粗”命令，可以使用下列代码：

<commands>
<command idMso="Bold"
enabled="false"/>
</commands>

复制代码

就这么简单！关键是确保正确使用了你希望禁用的命令的idMso。
禁用与应用程序选项和退出应用程序相关的命令
虽然应用程序选项和退出应用程序控件属于officeMenu元素，然而不能从officeMenu容器里禁用这两个控件。相反，必须使用command元素，如下所示：

<commands>
<command idMso="FileExit"
enabled="false"/>
<command idMso="ApplicationOptionsDialog"
enabled="false"/>
</commands>

复制代码

当要禁用许多控件时，一个更好的选择是共享回调，这样不需要指定每个命令的enabled属性。这种情况下，代码如下所示：

<commands>
<command idMso="FileExit"
getEnabled="rxshared_getEnabled"/>
<command idMso="ApplicationOptionsDialog"
getEnabled="rxshared_getEnabled"/>
<command idMso="Bold"
getEnabled="rxshared_getEnabled"/>
</commands>

复制代码

下面来处理回调，禁用控件，代码如下：

Sub rxshared_getEnabled(control As IRibbonControl, ByRef returnedVal)
returnedVal = False
End Sub

复制代码

重利用与通用控件相关的命令
重利用命令与禁用命令所采取的方式相同，也是在commands集合中进行处理。
同样，重利用命令成功的关键在于知道希望重利用的命令所在的控件。此外，虽然某命令是不可见的，但是如果通过快捷键调用的话，仍然具有所设计的功能。这也带来了一些问题，例如事件的重复触发。
下面，我们来重利用应用程序选项按钮：

<command idMso="ApplicationOptionsDialog"
onAction="rxApplicationOptionsDialog_repurpose"/>

复制代码

回调代码如下：

Sub rxApplicationOptionsDialog_repurpose(control As IRibbonControl, ByRef cancelDefault)
MsgBox "对不起,Excel选项目前已经被禁用.", vbCritical
End Sub

复制代码

与前面的示例一样，如果多个控件共享相同的回调签名，那么可以使用同一过程。
影响键盘快捷键和键击键
有时，可能希望覆盖掉内置快捷键和键击键。重载键击键是非常简单的，只需引用该控件，然后给它赋新的键击键，如下面的XML代码所示：
<tab idMso="TabInsert" keytip="$">

通过将“$”赋值给“插入”选项卡作为键击键，从而将其键击键从“I”修改为“$”。如下图所示，尽管使用了特殊字符$，然而仍然显示自定义的结果。

提示：键击键通过“键，然后键”的方式访问，即按下并释放第一个键，然后按第二个键。而快捷键则通过“键加键”的方式访问，即同时按下所有的键。
下面，我们演示重载内置快捷键，例如Ctrl+c。这里介绍使用OnKey方法来重载内置快捷键。OnKey方法用于运行指定的过程，与SendKeys方法类似，因此可以使用与之相同的键代码。但是，OnKey方法稍微有点不同，使用下表所列的参数。

名称	必需/可选	数据类型	描述
Key	必需	字符串	代表键或按键组合的字符串
Procedure	可选	Variant	代表要运行的过程名称的字符串。如果值为””（空文本），当按下键或键组合时没有任何操作，这种形式的OnKey修改了键击的正常结果。如果忽略参数，那么键或键组合将恢复到正常行为（即OnKey方法清除的任何键或键组合以前被赋予的功能）

OnKey方法的通用语法如下：
Application.OnKey Key,ProcedureName

正如上表如所，参数Key指定计划捕获的键或键组合，而参数ProcedureName指定当按下键或键组合时必须执行的过程名。假设希望捕获打印快捷键（Ctrl+p），可以使用下列代码：

Sub print_override()
Application.OnKey "^p", "myPrintMsg"
End Sub

复制代码

为了恢复快捷键的正常功能，必须忽略OnKey方法参数中的过程名，如下代码所示：

Sub print_override()
Application.OnKey "^p"
End Sub

复制代码

该快捷键命名将恢复其默认的功能。

		自动登录	找回密码
密码			免费注册

[分享] 细品RibbonX(1-59) (转)