Tag 属性

优质

小牛编辑

126浏览

2023-12-01

全部显示

返回或设置有关命令栏控件的信息，例如，作为过程参数的数据或用于识别该控件的信息。String 类型，可读写。

expression.Tag

expression 必需。该表达式返回“应用于”列表中的对象之一。

说明

若要避免在触发事件时对同一类的重复调用，请为事件定义唯一的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

示例

本示例可实现的功能为：将自定义工具栏上的按钮的标记设置为“Spelling Button”，并在消息框中显示此标记。

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