Свойство CommandBarControl.Tag (Office)

Статья
04/07/2023

Возвращает или задает сведения о CommandBarControl, например данные, которые можно использовать в качестве аргумента в процедурах, или сведения, идентифицирующие элемент управления. Для чтения и записи.

Примечание.

Использование CommandBars в некоторых приложениях Microsoft Office было заменено новым компонентом ленты пользовательского интерфейса Microsoft Office Fluent. Дополнительные сведения см. в статье Обзор ленты Office Fluent.

Синтаксис

expression. Тег

Выражение Переменная, представляющая объект CommandBarControl .

Возвращаемое значение

String

Пример

Чтобы избежать повторяющихся вызовов одного класса при активации с событиями, определите свойство 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)

См. также

Элементы объекта CommandBarControl

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через