Compartilhar via

Propriedade CommandBarButton.State (Office)

  • Artigo

Obtém ou define a aparência de um controle CommandBarButton . Leitura/gravação.

Sintaxe

expressão. Estado

expressão Obrigatório. Uma variável que representa um objeto CommandBarButton.

Comentários

A propriedade State de botões da barra de comandos interna é somente leitura. O valor da propriedade Type está disponível como um valor na enumeração msoButtonState .

Exemplo

Este exemplo cria uma barra de comandos chamada Custom e adiciona dois botões a ele. O exemplo, em seguida, define o botão à esquerda para msoButtonUp e define o botão à direita para 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

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.