Application.CustomMenusFile-Eigenschaft (Visio)

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

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.

Syntax

Ausdruck. CustomMenusFile

expression Eine Variable, die ein Application-Objekt darstellt.

Rückgabewert

Zeichenfolge

HinwBemerkungeneise

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.

Achtung

Dieses Makro verwendet das VBA-Schlüsselwort Kill, um eine Datei auf dem Datenträger zu löschen. Verwenden Sie dieses Schlüsselwort 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.

 
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.