Document.CustomMenusFile-Eigenschaft (Visio)

Ruft den Namen der Datei ab, die benutzerdefinierte Menüs und Zugriffstasten für ein Document-Objekt definiert, oder legt diesen fest. Lese-/Schreibzugriff.

Syntax

Ausdruck. CustomMenusFile

Ausdruck Eine Variable, die ein Document-Objekt darstellt.

Rückgabewert

String

Hinweise

Hinweis

Ab Visio 2010 ersetzt die Microsoft Office Fluent-Benutzeroberfläche das vorherige System von mehrstufigen Menüs, Symbolleisten und Aufgabenbereichen. VBA-Objekte und -Member, die Sie in früheren Versionen von Visio zum Anpassen der Benutzeroberfläche verwendet haben, sind weiterhin in Visio verfügbar, funktionieren aber anders.

Wenn das Objekt keine benutzerdefinierten Menüs verwendet, gibt die CustomMenusFile-Eigenschaft Nothing zurück.

Beispiel

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. Es speichert außerdem vorhandene benutzerdefinierte Menüs in einer Datei und gibt an, dass das aktuelle Dokument diese Menüs verwendet. Sie müssen zusätzlichen Code schreiben, um die benutzerdefinierten Benutzeroberflächenelemente hinzuzufügen.

Hinweis

Dieses Makro verwendet das VBA-Schlüsselwort Kill, um eine Datei auf dem Datenträger zu löschen. Verwenden Sie dieses Schlüsselwort mit Bedacht, da ein Kill-Befehl nach der Ausführung nicht rückgängig gemacht werden kann und Sie keine vorherige Warnmeldung erhalten.

 
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 Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.