![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
Stellt ein Schaltflächen-Steuerelement auf einer Befehlsleiste dar.
Verwenden des CommandBarButton-Objekts
Verwenden Sie Controls(index), wobei index die Indexnummer des Steuerelements ist, um ein CommandBarButton-Objekt zurückzugeben. (Die Type-Eigenschaft des Steuerelements muss msoControlButton sein.)
Im folgenden Beispiel wird davon ausgegangen, dass das zweite Steuerelement auf der Befehlsleiste mit dem Namen "Custom" eine Schaltfläche ist. Der Stil dieser Schaltfläche wird geändert.
Set c = CommandBars("Custom").Controls(2)
With c
If .Type = msoControlButton Then
If .Style = msoButtonIcon Then
.Style = msoButtonIconAndCaption
Else
.Style = msoButtonIcon
End If
End If
End With
Sie können auch die FindControl-Methode verwenden, um ein CommandBarButton-Objekt zurückzugeben.