CommandBarButton.State-Eigenschaft (Office)

  • Artikel

Ruft die Darstellung eines CommandBarButton-Steuerelements ab oder legt diese fest. Lese-/Schreibzugriff.

Syntax

Ausdruck. Staat

Ausdruck: Erforderlich. Eine Variable, die ein CommandBarButton -Objekt darstellt.

HinwBemerkungeneise

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.