CommandBarButton.Click-Ereignis (Office)

  • Artikel

Tritt auf, wenn der Benutzer auf ein CommandBarButton -Objekt klickt.

Hinweis

[!HINWEIS] "CommandBar"-Objekte wurden in einigen Microsoft Office-Anwendungen durch die neue Menüband-Komponente der Microsoft Office Fluent-Benutzeroberfläche abgelöst. Weitere Informationen finden Sie unter Übersicht über das Office Fluent-Menüband.

Syntax

Ausdruck. Click(STRG, CancelDefault)

Ausdruck Eine Variable, die ein CommandBarButton-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Ctrl Erforderlich CommandBarButton Stellt eine CommandBar-Schaltfläche dar.
CancelDefault Erforderlich Boolean Ist False , wenn das Standardverhalten, das den CommandBarButton-Steuerelementen zugeordnet ist, auftritt, es sei denn, es wird von einem anderen Prozess oder Add-In abgebrochen.

HinwBemerkungeneise

Das Click -Ereignis wird durch das CommandBarButton -Objekt erkannt. Wenn das Click -Ereignis für ein bestimmtes CommandBarButton-Steuerelement zurückgeben möchten, verwenden Sie das Schlüsselwort WithEvents zum Deklarieren einer Variablen, und legen Sie die Variable auf das Steuerelement.

Beispiel

Im folgenden Beispiel wird im Menü Datei der Hostanwendung eine Befehlsleistenschaltfläche erstellt, durch die der Benutzer eine Arbeitsmappe als durch Trennzeichen getrennte Datei speichern kann. (Dieses Beispiel ist in allen Anwendungen funktionsfähig; der Kontext des Speicherns im CSV-Format gilt jedoch für 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

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.