Application.CustomMenusFile プロパティ (Visio)
Application オブジェクトのカスタム メニューとアクセラレータを定義するファイルの名前を取得または設定します。 読み取り/書き込みが可能です。
注:
Visio 2010 以降、Microsoft Office Fluent ユーザー インターフェイス (UI) は、以前の階層化されたメニュー、ツール バー、作業ウィンドウのシステムを置き換えました。 以前のバージョンの Visio でユーザー インターフェイスをカスタマイズするために使用した VBA オブジェクトとメンバーは、Visio では引き続き使用できますが、機能は異なります。
構文
式。CustomMenusFile
expressionApplication オブジェクトを 表す変数。
戻り値
文字列
注釈
オブジェクトがユーザー設定メニューを使用していない場合は、CustomMenusFile プロパティは Nothing を返します。
例
この Microsoft Visual Basic for Applications (VBA) マクロは、アプリケーション レベルのユーザー設定 UI を置き換えずに図面用の現在アクティブな UI を取得する方法を示しています。 また、このマクロは既存のユーザー設定メニューをファイルに保存し、保存されたメニューが現在の図面で使用されるように指定します。 ユーザー設定 UI 項目を追加する場合は、追加のコードを記述する必要があります。
注意
このマクロでは、VBA キーワード Kill を 使用してディスク上のファイルを削除します。 このキーワードは、実行後に Kill コマンドを元に戻すことはできず、以前の警告メッセージは表示されないため、注意深く使用してください。
Sub CustomMenusFile_Example()
Dim vsoUIObject As Visio.UIObject
Dim strPath As String
'Check whether there are custom menus bound to the document.
If ThisDocument.CustomMenus Is Nothing Then
'If not, check whether there are custom menus bound to the application.
If Visio.Application.CustomMenus Is Nothing Then
'If not, use the Visio built-in menus.
Set vsoUIObject = Visio.Application.BuiltInMenus
MsgBox "Using Built-In Menus", 0
Else
'If there are existing Visio custom menus, use them.
Set vsoUIObject = Visio.Application.CustomMenus
'Save these custom menus to a file.
strPath = Visio.Application.Path & "\CustomUI.vsu"
vsoUIObject.SaveToFile (strPath)
'Set the document to use the existing custom UI.
ThisDocument.CustomMenusFile = strPath
'Get this document's UIObject object.
Set vsoUIObject = ThisDocument.CustomMenus
'Delete the newly created temp file.
Kill Visio.Application.Path & "\CustomUI.vsu"
ThisDocument.ClearCustomMenus
MsgBox "Using Custom Menus", 0
End If
Else
'Use the existing custom menus.
Set vsoUIObject = ThisDocument.CustomMenus
End If
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。