通过

CommandBarButton.State 属性 (Office)

  • 项目

获取或设置 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

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。