CommandBarButton.State-Eigenschaft (Office)
Ruft die Darstellung eines CommandBarButton-Steuerelements ab oder legt diese fest. Lese-/Schreibzugriff.
Syntax
Ausdruck. Zustand
expression Erforderlich. Eine Variable, die ein CommandBarButton -Objekt darstellt.
Hinweise
Die State -Eigenschaft des integrierten Befehlsleisten-Schaltflächen ist schreibgeschützt. Der Wert der Type-Eigenschaft ist als Wert in der msoButtonState-Enumeration verfügbar.
Beispiel
In diesem Beispiel wird eine Befehlsleiste mit dem Namen Benutzerdefiniert erstellt und dieser zwei Schaltflächen hinzugefügt. Klicken Sie dann wird im Beispiel wird die Schaltfläche links auf MsoButtonUp und die Schaltfläche rechts auf MsoButtonDown festgelegt.
Dim myBar As Office.CommandBar
Dim imgSource As Office.CommandBarButton
Dim myControl1 As Office.CommandBarButton
Dim myControl2 As Office.CommandBarButton
' Add new command bar.
Set myBar = CommandBars.Add(Name:="Custom", Position:=msoBarTop, Temporary:=True)
' Add 2 buttons to new command bar.
With myBar
.Controls.Add Type:=msoControlButton
.Controls.Add Type:=msoControlButton
.Visible = True
End With
' Paste Bold button face and set State of first button.
Set myControl1 = myBar.Controls(1)
Set imgSource = CommandBars.FindControl(msoControlButton, 113)
imgSource.CopyFace
With myControl1
.PasteFace
.State = msoButtonUp
End With
' Paste italic button face and set State of second button.
Set myControl2 = myBar.Controls(2)
Set imgSource = CommandBars.FindControl(msoControlButton, 114)
imgSource.CopyFace
With myControl2
.PasteFace
.State = msoButtonDown
End With
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.