會取得或設定針對 Application 物件定義自訂功能表和快速鍵的檔案名稱。 讀取/寫入。
注意事項
自 Visio 2010 起，Microsoft Office Fluent 使用者介面 (介面) 取代了先前分層選單、工具列與工作窗格的系統。 你在先前版本 Visio 中用來自訂使用者介面的 VBA 物件和成員仍然可以在 Visio 中使用，但它們的運作方式不同。
語法
表情。自訂目錄檔案
expression 代表 Application 物件的變數。
傳回值
字串
註解
如果物件沒有使用自訂功能表，CustomMenusFile 屬性會傳回 Nothing。
範例
這Microsoft Visual Basic for Applications (VBA) 巨集 展示了如何在不替換應用程式層級自訂介面的情況下，取得文件目前啟用的 UI。 它也會將所有現有的自訂選單儲存到檔案中，並指定目前文件使用這些選單。 你必須撰寫額外的程式碼來新增自訂的 UI 項目。
注意
這個巨集會使用 VBA 關鍵字 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 支援與意見反應。