通过

CommandBarButton.Click 事件 (Office)

  • 项目

该事件发生在用户单击 CommandBarButton 对象时。

注意

某些 Microsoft Office 应用程序中对 CommandBars 的使用已由 Microsoft Office Fluent 用户界面的新功能区组件取代。 有关详细信息，请参阅 Office Fluent 功能区概述。

语法

表达式。单击 (Ctrl、 CancelDefault)

表达 一个代表 CommandBarButton 对象的变量。

参数

名称 必需/可选 数据类型 说明
Ctrl 必需 CommandBarButton 表示 CommandBar 按钮。
CancelDefault 必需 Boolean 如果发生与 CommandBarButton 控件关联的默认行为，则为 False，除非其他进程或外接程序取消了该行为。

备注

Click 事件由 CommandBarButton 对象识别。 要返回特定 CommandBarButton 控件的 Click 事件，请使用 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

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。