Application.CommandBars プロパティ (Visio)

コンテナー アプリケーションのコマンド バーを表す CommandBars コレクションへの参照を返します。 読み取り専用です。

注:

Visio 2010 以降、Microsoft Office Fluent ユーザー インターフェイス (UI) は、以前の階層化されたメニュー、ツール バー、作業ウィンドウのシステムを置き換えました。 以前のバージョンの Visio でユーザー インターフェイスをカスタマイズするために使用した VBA オブジェクトとメンバーは、Visio では引き続き使用できますが、機能は異なります。

構文

式。Commandbars

expressionApplication オブジェクトを 表す変数。

戻り値

CommandBars

注釈

Microsoft Visio 2002 以降では、CommandBars プロパティによって返される CommandBars コレクションを操作して、Visio ユーザー インターフェイスのメニューやツールバーをプログラムで処理できるようになりました。 CommandBars コレクションには、Microsoft Word や Microsoft Excel などの Microsoft Office アプリケーション製品で使用される CommandBars コレクションと同じインターフェイスが含まれています。

または、Visio バージョン 4.0 以降では、CommandBars と同様の機能を提供する UIObject オブジェクトを返すアプリケーションプロパティとドキュメント プロパティが公開されています。 したがって、プログラムは CommandBars コレクションまたは UIObject オブジェクトを使用することにより、Visio のメニューとツールバーを操作できます。

CommandBars プロパティが返すオブジェクトについての情報を取得するには、次の操作を行います。

1. [ 開発者 ] タブで、[ Visual Basic] を選択します。

2. [ 表示 ] メニューの [ オブジェクト ブラウザー] を選択します。

3. [ プロジェクト/ライブラリ ] の一覧で、[Office] を選択 します。

4. [プロジェクト/ライブラリ] ボックスの一覧に Office タイプ ライブラリが表示されない場合は、[ツール] メニューの [参照] を選択し、[Microsoft Office 14.0 オブジェクト ライブラリ] チェック ボックスをオンにして、[OK] を選択します。

5. [クラス] で、CommandBars という名前のクラスが表示されていることを確認します。

CommandBars コレクション内の各 CommandBarControl オブジェクトには OnAction プロパティがあり、CommandBars コレクション内の各 CommandBar オブジェクトには Context プロパティがあります。 これらのプロパティの値は、コンテナー アプリケーションによって決定されます。 Microsoft Visio では、次の手順を実行します。

• OnAction プロパティは、String値になります。この値は、COM アドイン、Microsoft Visual Basic for Applications (VBA) マクロ、VBA コード、または Visio アドオン名のいずれかとして解釈されます。

• Context プロパティは、コマンド バーが表示されるメニュー コンテキストを決定します。

  • メニュー コンテキスト番号は String 値 ( visUIObjSetDrawing や "2" など) であり、コマンド バーが既定で表示されている場合はアスタリスクが続きます ( visUIObjSetShapeSheet& "*" or "4*" など)。
  • 有効なメニュー コンテキストは 、visUIObjSetDrawing (2)、 visUIObjSetStencil (3)、 visUIObjSetShapeSheet (4)、 visUIObjSetIcon (5)、 または visUIObjSetPrintPreview (7) です。 Context プロパティを他の値に設定しようとすると失敗します。

例

このマクロは、CommandBars プロパティを使用して、コマンド バーの一覧を表示する方法を示します。

 
Public Sub CommandBars_Example() 
 
 Dim vsoCommandBars As CommandBars 
 Dim vsoCommandBar As CommandBar 
 
 'Get the set of CommandBars 
 'for the application. 
 Set vsoCommandBars = Application.CommandBars 
 
 'List each CommandBar in the Immediate window. 
 For Each vsoCommandBar In vsoCommandBars 
 Debug.Print vsoCommandBar.Name 
 Next 
 
End Sub

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

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