InvisibleApp. CustomMenusFile-Eigenschaft (Visio)InvisibleApp.CustomMenusFile property (Visio)

Dient zum Abrufen oder Festlegen des Namens der Datei, die benutzerdefinierte Menüs und Zugriffstasten für ein InvisibleApp -Objekt definiert.Gets or sets the name of the file that defines custom menus and accelerators for an InvisibleApp object. Lese-/Schreibzugriff.Read/write.

Hinweis

Beginnend mit Visio 2010 wurde das vorherige System mit mehrstufigen Menüs, Symbolleisten und Aufgabenbereichen vom Microsoft Office Fluent-Benutzeroberfläche (UI) ersetzt.Starting with Visio 2010, the Microsoft Office Fluent user interface (UI) replaced the previous system of layered menus, toolbars, and task panes. VBA-Objekte und-Elemente, die Sie zum Anpassen der Benutzeroberfläche in früheren Versionen von Visio verwendet haben, sind weiterhin in Visio verfügbar, funktionieren jedoch anders.VBA objects and members that you used to customize the user interface in previous versions of Visio are still available in Visio, but they function differently.

SyntaxSyntax

Ausdruck. CustomMenusFileexpression.CustomMenusFile

Ausdruck Eine Variable, die ein InvisibleApp -Objekt darstellt.expression A variable that represents an InvisibleApp object.

RückgabewertReturn value

ZeichenfolgeString

BemerkungenRemarks

Wenn das Objekt keine benutzerdefinierten Menüs verwendet, gibt die CustomMenusFile-Eigenschaft Nothing zurück.If the object is not using custom menus, the CustomMenusFile property returns Nothing.

BeispielExample

Dieses VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie Sie die derzeit aktive Benutzeroberfläche für das Dokument abrufen, ohne die benutzerdefinierte Benutzeroberfläche auf der Anwendungsebene zu ersetzen.This Microsoft Visual Basic for Applications (VBA) macro shows how to get the currently active UI for your document without replacing the application-level custom UI. Es speichert außerdem vorhandene benutzerdefinierte Menüs in einer Datei und gibt an, dass das aktuelle Dokument diese Menüs verwendet.It also saves any existing custom menus to a file and specifies that the current document use those menus. Sie müssen zusätzlichen Code schreiben, um die benutzerdefinierten Benutzeroberflächenelemente hinzuzufügen.You must write additional code to add your custom UI items.

Achtung

Dieses Makro verwendet das VBA-Schlüsselwort Kill, um eine Datei auf dem Datenträger zu löschen.This macro uses the VBA keyword Kill to delete a file on disk. Verwenden Sie dieses Stichwort sorgfältig, da Sie einen Kill -Befehl nicht rückgängig machen können, nachdem er ausgeführt wurde, und Sie erhalten keine vorherige Warnmeldung.Use this keyword carefully because you cannot undo a Kill command after it has been run, and you will not get a prior warning message.

 
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

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.