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

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

  1. [ Developer] タブで 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 プロパティは、コマンド バーが表示されるメニュー コンテキストを決定します。

    • メニュー コンテキスト番号は 文字列 値 ( たとえば 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 のサポートおよびフィードバックを参照してください。

  • Last updated on