次の方法で共有

CommandBars オブジェクト (Office)

  • [アーティクル]

コンテナー アプリケーションのコマンド バーを表す CommandBar オブジェクトのコレクションです。

注:

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

例

CommandBars コレクションを返すには、 CommandBars プロパティを使用します。 次の例は、各メニュー バーとツールバーの名前とローカル名の両方を [ イミディエイト] ウィンドウに表示し、そのメニュー バーまたはツールバーが表示されているかどうかを表す値を表示します。

For Each cbar in CommandBars 
    Debug.Print cbar.Name, cbar.NameLocal, cbar.Visible 
Next

コレクションに新しいコマンド バーを追加するには、 Add メソッドを使用します。 次の例では、 Custom1 という名前のカスタム ツール バーを作成し、フローティング ツール バーとして表示します。

Set cbar1 = CommandBars.Add(Name:="Custom1", Position:=msoBarFloating) 
cbar1.Visible = True

1 つの CommandBar オブジェクトを返すには、enumName (index はコマンド バーの名前またはインデックス番号) を使用します。 次の例では、アプリケーション ウィンドウの下部に Custom1 という名前のツール バーをドッキングします。

CommandBars("Custom1").Position = msoBarBottom

注:

名前またはインデックス番号を使用して、コンテナー アプリケーションで使用可能なメニュー バーとツール バーの一覧でメニュー バーまたはツール バーを指定します。 ただし、メニュー、ショートカット メニュー、またはサブメニュー ( CommandBar オブジェクトで表されるすべて) を指定するには、名前を使用する必要があります。 ユーザー設定のメニューまたはサブメニューのうち、名前の同じものが複数ある場合、enumName は先頭のものを返します。 正しいメニューまたはサブメニューが確実に返されるようにするには、そのメニューを表示するポップアップ コントロールを見つけます。 次に、 CommandBar プロパティをポップアップ コントロールに適用して、そのメニューを表すコマンド バーを返します。

関連項目

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

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