次の方法で共有


CommandBarButton.State プロパティ (Office)

CommandBarButton コントロールの外観を取得または設定します。 値の取得と設定が可能です。

構文

状態

expression 必須です。 CommandBarButton オブジェクトを表す変数を指定します。

注釈

組み込みのコマンド バー ボタンの State プロパティは読み取り専用です。 Type プロパティの値は、msoButtonState 列挙の値として使用できます。

次の使用例は、 Custom という名前のコマンド バーを作成し、それに 2 つのボタンを追加します。 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 のサポートおよびフィードバックを参照してください。