Событие CommandBarButton.Click (Office)

Статья
04/07/2023

Происходит, когда пользователь щелкает объект CommandBarButton .

Примечание.

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

Синтаксис

expression. Click(CTRL, CancelDefault)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
CTRL	Обязательный	CommandBarButton	Представляет кнопку CommandBar .
CancelDefault	Обязательный	Boolean	Имеет значение False , если происходит поведение по умолчанию, связанное с элементами управления CommandBarButton , если оно не отменено другим процессом или надстройкой.

Замечания

Событие Click распознается объектом CommandBarButton . Чтобы вернуть событие Click для определенного элемента управления CommandBarButton , используйте ключевое слово WithEvents , чтобы объявить переменную, а затем присвойте переменной элементу управления .

Пример

В следующем примере в меню Файл ведущего приложения создается кнопка панели команд, которая позволяет пользователю сохранить книгу в виде файла с разделителями-запятыми. (Этот пример работает во всех приложениях, но контекст сохранения в формате CSV применим к Microsoft Excel.)

Private HostApp As Object 
 
Sub createAndSynch() 
    Dim iIndex As Integer 
    Dim iCount As Integer 
    Dim fBtnExists As Boolean 
     
    Dim obCmdBtn As Object 
    Dim btnSaveAsCSVHandler as new Class1 
          
    Set HostApp = Application 
     
    Dim barHelp As Office.CommandBar 
    Set barHelp = Application.CommandBars("File") 
    fBtnExists = False  
    iCount = barHelp.Controls.Count 
    For iIndex = 1 To iCount 
        If barHelp.Controls(iIndex).Caption = "Save As CSV (Comma Delimited)" Then fBtnExists = True  
     
    Next 
    Dim btnSaveAsCSV As Office.CommandBarButton 
    If fBtnExists Then 
        Set btnSaveAsCSV = barHelp.Controls("Save As CSV (Comma Delimited)") 
    Else 
        Set btnSaveAsCSV = barHelp.Controls.Add(msoControlButton) 
        btnSaveAsCSV.Caption = "Save As CSV (Comma Delimited)" 
    End If 
     
    btnSaveAsCSV.Tag = "btn1" 
    btnSaveAsCSVHandler.SyncButton btnSaveAsCSV 
End Sub

См. также

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

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

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

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