labelControl为开发者提供了一种在功能区中显示文本标签的方式。这类控件没有行为，通常用作其它控件的标题或描述。常常用来为在一列中排列的按钮提供上下文。

1、labelControl元素必需的属性

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

表1：labelControl元素必需的属性

属性

何时使用

id

当创建自已的labelControl时

idMso

当使用已有的Microsoft labelControl时

idQ

当在命名空间之间创建共享的labelControl时

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

为了相对于另一个控件决定labelControl的位置，使用下表2列出的任一insert属性。

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

INSERT属性

允许值

默认值

何时使用

insertAfterMso

有效的Mso组

在组末尾插入

在Microsoft控件之后插入

insertBeforeMso

有效的Mso组

在组末尾插入

在Microsoft控件之前插入

insertAfterQ

有效的组idQ

在组末尾插入

在共享的命名空间控件之后插入

insertBeforeQ

有效的组idQ

在组末尾插入

在共享的命名空间控件之前插入

也可以为labelControl元素设置下表3所列任意属性或等价的回调的组合。

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

静态属性

动态属性

允许值

默认值

动态属性的VBA回调签名

enabled

getEnabled

true,false,1,0

true

Sub GetEnabled(control

 As IRibbonControl,

ByRef returnedVal)

label

getLabel

1至1024个字符

（none）

Sub GetLabel(control As

IRibbonControl,

ByRef returnedVal)

screentip

getScreentip

1至1024个字符

（none）

Sub GetScreentip(control

As IRibbonControl,

ByRef returnedVal)

showLabel

getShowLabel

true,false,1,0

true

Sub GetShowLabel(control

 As IRibbonControl,

ByRef returnedVal)

supertip

getSupertip

1至1024个字符

（none）

Sub GetSupertip(control

As IRibbonControl,

ByRef returnedVal)

tag

（none）

1至1024个字符

（none）

（none）

visible

getVisible

true,false

true

Sub GetVisible(control

 As IRibbonControl,

ByRef returnedVal)

3、labelControl元素允许的子对象

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

4、labelControl元素的父对象

在下列任何控件内都能放置labelControl元素：

n         box

n         group

5、使用内置的labelControl元素

Microsoft实际上在Excel中公开了6个labelControl元素。然而，创建自定义labelControl更快且更直接。

6、创建自定义的labelControl元素

labelControl的一个相当酷的使用是将其作为标记。

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

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

（3）输入下列XML代码：

                 insertBeforeMso=“TabHome“

                 label=“Demo“>

                       label=“Demo Group“>

                                    getLabel=“rxlblFeedback_getLabel“/>

                     

                              getImage=“rxbtnProcess_getImage“

                              onAction=“rxbtnProcess_click“/>

               

           

       

   

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

（5）在Excel中重新打开该文件，在VBE的标准模块中粘贴回调签名。

在编辑回调代码之前，让我们先考虑一个完整的操作过程。我们希望在单击按钮之前标签去读取Process Accounts，随后是Accounts Complete。我们需要一个变量，存储表明按钮是否被单击，因此在模块的开始声明该变量：

Dim bButtonClicked As Boolean

当然，还需要包括一个存储RibbonUI的全局变量。现在，创建onLoad回调代码：

Dim rxIRibbonUI As IRibbonUI

 

‘customUI.onLoad回调

Sub rxIRibbonUI_onLoad(ribbon As IRibbonUI)

    Set rxIRibbonUI = ribbon

End Sub

接下来，为labelControl创建getLabel回调。评估是否单击按钮的最容易的方法是检查bButtonClicked变量。使用Select Case语句，如下所示：

‘rxlblFeedback getLabel回调

Sub rxlblFeedback_getLabel(control As IRibbonControl, ByRef returnedVal)

    Select Case bButtonClicked

        Case False

            returnedVal = “Process Accounts”

        Case True

            returnedVal = “Accounts Complete”

    End Select

End Sub

同样，通过Select语句的评估决定显示图像或标签：

‘rxbtnProcess getImage回调

Sub rxbtnProcess_getImage(control As IRibbonControl, ByRef returnedVal)

    Select Case bButtonClicked

        Case False

            returnedVal = “CreateReportFromWizard”

        Case True

            returnedVal = “DeclineInvitation”

    End Select

End Sub

最后，来处理按钮。同样，检查bButtonClicked的值，如果为False，那么修改bButtonClicked的值为true，运行程序，然后使功能区无效。当然，无效将触发重建，控件将会更新以显示用户已经实施的操作。如果bButtonClicked的值已经是true，那么告诉用户他们已经完成了程序。代码如下：

‘rxbtnProcess onAction回调

Sub rxbtnProcess_click(control As IRibbonControl)

    Select Case bButtonClicked

        Case False

            bButtonClicked = True

       

            ‘Code to process accounts goes here

           

            rxIRibbonUI.Invalidate

        Case True

            MsgBox “已经运行了这个程序!”

    End Select

End Sub

（6）保存并关闭该工作簿，然后重新打开该工作簿，结果如下图所示。

 

单击该按钮，该组将更新为下图所示的结果。

 

再次单击该按钮，将会弹出一条消息框。

正如上述代码所示，我们使用了标签和图形来唤起用户对状态的注意，或者状态的改变。这是一种技巧，即使用labelControl来警告用户对象或事件的状态。