Office VBA教程:Tag属性

返回或设置有关命令栏控件的信息,例如,作为过程参数的数据或用于识别该控件的信息。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

VBA示例

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


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

上页:Office VBA教程:Table属性 下页:Office VBA教程:Text属性

Office VBA教程:Tag属性

Office VBA教程:Text属性 Office VBA教程:TextOrProperty属性
Office VBA教程:TipOfDay属性 Office VBA教程:Title属性
Office VBA教程:TooltipText属性 Office VBA教程:Top属性
Office VBA教程:Type属性 Office VBA教程:Value属性
Office VBA教程:Visible属性 Office VBA教程:新增属性(按字母顺序列表)
Office VBA教程:新增属性(按对象) Office VBA教程:Width属性
Office VBA教程:Microsoft Office对象 Office VBA教程:不支持的语言元素
Office VBA教程:Add方法 (Microsoft Word) Office VBA教程:Context属性
Office VBA教程 Office VBA参考教程:目录2
Office VBA参考教程:目录3 Office VBA参考教程:目录4
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号