Compartir a través de

Propiedad CommandBarButton.State (Office)

  • Artículo

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

Sintaxis

expresión. Estado

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

Comentarios

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

Consulte también

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.