Propriété CommandBarButton.State (Office)

  • Article

Obtient ou définit l’apparence d’un contrôle CommandBarButton . Lecture-écriture.

Syntaxe

expression. État

expression Obligatoire. Variable qui représente un objet CommandBarButton .

Remarques

La propriété State des boutons de barre de commandes par défaut est en lecture seule. La valeur de la propriété Type est disponible en tant que valeur dans l’énumération msoButtonState .

Exemple

Cet exemple crée une barre de commandes nommée Custom et y ajoute deux boutons. Il montre comment affecter ensuite la valeur msoButtonUp au bouton de gauche et la valeur msoButtonDown au bouton de droite.

 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

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.