In diesem Beispiel zu Microsoft Excel wird eine Befehlsleiste erstellt und dieser dann eine integrierte Befehlsleistenschaltfläche hinzugefügt. Die Schaltfläche führt die Excel-Funktion Summe aus. Bei diesem Beispiel wird die Execute-Methode verwendet, um die Summe für den markierten Zellenbereich zu berechnen, wenn die Befehlsleiste angezeigt wird.
Dim cbrCustBar As CommandBar Dim ctlAutoSum As CommandBarButton Set cbrCustBar = CommandBars.Add("Custom") Set ctlAutoSum = cbrCustBar.Controls _ .Add(msoControlButton, CommandBars("Standard") _ .Controls("AutoSum").Id) cbrCustBar.Visible = True ctlAutoSum.Execute