次の方法で共有


CommandBarControls オブジェクト (Office)

コマンド バーのコマンド バー コントロールを表す CommandBarControl オブジェクトのコレクション。

注:

[!メモ] 一部の Microsoft Office アプリケーションにおける CommandBars の使用方法が、Microsoft Office Fluent ユーザー インターフェイスの新しいリボン コンポーネントによって置き換えられました。 詳細については、「Office Fluent リボンの概要」を参照してください。

CommandBarControls コレクションを取得するには、Controls プロパティを使用します。 次の例では、 Standard という名前のツール バーのすべてのコントロールのキャプションを、そのコントロールの Id プロパティの現在の値に変更します。

For Each ctl In CommandBars("Standard").Controls 
    ctl.Caption = CStr(ctl.Id) 
Next ctl

新しいコマンド バー コントロールを CommandBarControls コレクションに追加するには、 Add メソッドを使用します。 次の使用例は、Custom という名前のコマンド バーに新しい空白のボタンを追加 します

Set myBlankBtn = CommandBars("Custom").Controls.Add

Controls(index) を使用して、CommandBarControl、CommandBarButtonCommandBarComboBox、または CommandBarPopup オブジェクトを返します。 次の例では、 Standard という名前のコマンド バーから Custom という名前のコマンド バーに最初のコントロールをコピーします。

Set myCustomBar = CommandBars("Custom") 
Set myControl = CommandBars("Standard").Controls(1) 
myControl.Copy Bar:=myCustomBar, Before:=1

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。