Document.CustomMenusFile 屬性 (Visio)

取得或設定定義 Document 物件之自訂功能表和快速鍵的檔案名。 讀取/寫入。

語法

運算式。CustomMenusFile

表達 代表 Document 物件的變數。

傳回值

字串

註解

注意事項

從 Visio 2010 開始，Microsoft Office Fluent 使用者介面 (UI) 取代先前的階層式功能表、工具列和工作窗格系統。 您在舊版 Visio 中用來自訂使用者介面的 VBA 物件和成員仍可在 Visio 中使用，但其運作方式不同。

如果物件沒有使用自訂功能表，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 支援與意見反應。