Gets or sets information about the CommandBarButton control, such as data that can be used as an argument in procedures, or information that identifies the control. Read/write.
| Note
|
| The use of CommandBars in some Microsoft Office applications has been superseded by the new Ribbon user interface. For more information, search help for the keyword "Ribbon." |
Syntax
expression.Tag
expression A variable that represents a CommandBarButton object.
Return Value
String
Example
To avoid duplicate calls of the same class when tiggered with events, define the Tag property unique to the events. The following example demonstrates this concept with two modules.
| Visual Basic for Applications
|
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
|
This example sets the tag for the button on the custom command bar to "Spelling Button" and displays the tag in a message box.
| Visual Basic for Applications
|
CommandBars("Custom").Controls(1).Tag = "Spelling Button" MsgBox (CommandBars("Custom").Controls(1).Tag)
|
ofv
See also:
Note