VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

VBA-Begriff: CommandBarControl-Objekt

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

Stellt ein Befehlsleisten-Steuerelement dar. Das CommandBarControl-Objekt ist ein Bestandteil der CommandBarControls-Auflistung. Die Eigenschaften und Methoden des CommandBarControl-Objekts werden auch von den Objekten CommandBarButton, CommandBarComboBox und CommandBarPopup verwendet.

Anmerkung   Wenn Sie Visual Basic-Code zum Arbeiten mit benutzerdefinierten Befehlsleisten-Steuerelementen schreiben, verwenden Sie die Objekte CommandBarButton, CommandBarComboBox und CommandBarPopup. Beim Schreiben von Code für solche integrierten Steuerelemente in der Containeranwendung, die nicht durch eines dieser drei Objekte dargestellt werden können, verwenden Sie das CommandBarControl-Objekt.

Verwenden des CommandBarControl-Objekts

Verwenden Sie Controls(index), wobei index die Indexnummer eines Steuerelements ist, um ein CommandBarControl-Objekt zurückzugeben. (Die Type-Eigenschaft des Steuerelements muss msoControlLabel, msoControlExpandingGrid, msoControlSplitExpandingGrid, msoControlGrid oder msoControlGauge sein.)

Anmerkung   Variablen, die als CommandBarControl deklariert sind, können CommandBarButton-, CommandBarComboBox- und CommandBarPopup-Werte zugewiesen werden.

Sie können auch die FindControl-Methode verwenden, um ein CommandBarControl-Objekt zurückzugeben. Im folgenden Beispiel wird nach einem Steuerelement des Typs msoControlGauge gesucht. Wird ein solches gefunden, dann wird die Indexnummer des Steuerelements angezeigt sowie der Name der Befehlsleiste, in der sich das Steuerelement befindet. In diesem Beispiel stellt die lbl-Variable ein CommandBarControl-Objekt dar.

Set lbl = CommandBars.FindControl(Type:= msoControlGauge)
If lbl Is Nothing Then
    MsgBox "A control of type msoControlGauge was not found."
Else
    MsgBox "Control " & lbl.Index & " on command bar " _
        & lbl.Parent.Name & " is type msoControlGauge"
End If