通过

CommandBarButton.Tag 属性 (Office)

  • 项目

获取或设置有关 CommandBarButton 控件的信息，例如，可作为过程参数的数据或用于识别该控件的信息。 读/写。

注意

某些 Microsoft Office 应用程序中对 CommandBars 的使用已由 Microsoft Office Fluent 用户界面的新功能区组件取代。 有关详细信息，请参阅 Office Fluent 功能区概述。

语法

表达式。标记

表达 一个代表 CommandBarButton 对象的变量。

返回值

字符串

示例

若要避免在使用事件触发时重复调用同一类，请定义事件唯一的 Tag 属性。 下面的示例使用两个模块说明这一概念。

Public WithEvents oBtn As CommandBarButton 
 
Private Sub oBtn_click(ByVal ctrl As Office.CommandBarButton, CancelDefault As Boolean) 
    MsgBox "Clicked " & ctrl.Caption 
 
End Sub 
 
Dim oBtns As New Collection 
      
Sub Use_Tag() 
     
    Dim oEvt As CBtnEvent 
    Set oBtns = Nothing 
 
    For i = 1 To 5 
        Set oEvt = New CBtnEvent 
        Set oEvt.oBtn = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlButton) 
        With oEvt.oBtn 
            .Caption = "Btn" & i 
            .Style = msoButtonCaption 
            .Tag = "Hello" & i 
        End With 
        oBtns.Add oEvt 
    Next 
      
End Sub

本示例将自定义命令栏上按钮的标记设置为 “拼写按钮” ，并在消息框中显示标记。

CommandBars("Custom").Controls(1).Tag = "Spelling Button" 
MsgBox (CommandBars("Custom").Controls(1).Tag)

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。