Свойство CommandBarButton.State (Office)

Статья
04/07/2023

Возвращает или задает внешний вид элемента управления CommandBarButton . Для чтения и записи.

Синтаксис

expression. Государства

выражение (обязательно). Переменная, представляющая объект CommandBarButton .

Замечания

Свойство State встроенных кнопок панели команд доступно только для чтения. Значение свойства Type доступно в виде значения в перечислении msoButtonState .

Пример

В этом примере создается панель команд с именем Custom и добавляются две кнопки. Затем в примере для кнопки слева задается значение msoButtonUp , а для кнопки справа — 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

См. также

Элементы объекта CommandBarButton

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через