Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

VBA-Begriff: CommandBarControls-Auflistung

CommandBars-Auflistung (CommandBar-Objekt)
CommandBarControls-Auflistung (CommandBarControl-Objekt)
CommandBarButton-Objekt
CommandBarComboBox-Objekt
CommandBarPopup-Objekt

Eine Auflistung von CommandBarControl-Objekten, die die Befehlsleisten-Steuerelemente auf einer Befehlsleiste darstellen.

Verwenden der CommandBarControls-Auflistung

Verwenden Sie die Controls-Eigenschaft, um die CommandBarControls-Auflistung zurückzugeben. Im folgenden Beispiel wird der Titel jedes Steuerelements auf der Symbolleiste "Standard" auf den aktuellen Wert der Id-Eigenschaft für das jeweilige Steuerelement geändert.

For Each ctl In CommandBars("Standard").Controls
    ctl.Caption = CStr(ctl.Id)
Next ctl

Verwenden Sie die Add-Methode, um der CommandBarControls-Auflistung ein neues Befehlsleisten-Steuerelement hinzuzufügen. In diesem Beispiel wird der Befehlsleiste "Custom" eine neue, leere Schaltfläche hinzugefügt.

Set myBlankBtn = CommandBars("Custom").Controls.Add

Verwenden Sie Controls(index), wobei index der Titel oder die Indexnummer eines Steuerelements ist, um ein CommandBarControl-, CommandBarButton-, CommandBarComboBox- oder CommandBarPopup-Objekt zurückzugeben. Der folgende Beispielcode kopiert das erste Steuerelement aus der Befehlsleiste "Standard" in die Befehlsleiste "Custom".

Set myCustomBar = CommandBars("Custom")
Set myControl = CommandBars("Standard").Controls(1)
myControl.Copy Bar:=myCustomBar, Before:=1