Propiedad CommandBarButton.State (Office)

Obtiene o establece la apariencia de un control CommandBarButton . Lectura y escritura.

Sintaxis

expresión. Estado

expresión necesaria. Variable que representa un objeto CommandBarButton.

Observaciones

La propiedad State de los botones de barra de comandos integrada es de sólo lectura. El valor de la propiedad Type está disponible como un valor en la enumeración msoButtonState .

Ejemplo

En este ejemplo se crea una barra de comandos denominada Custom y se le agregan dos botones. En el ejemplo, a continuación, establece el botón de la izquierda en msoButtonUp y el botón de la derecha en msoButtonDown.

 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 

Vea también

• Miembros del objeto CommandBarButton

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.