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

Ruft ein UIObject -Objekt, das die aktuellen benutzerdefinierten Menüs und Zugriffstasten eines InvisibleApp -Objekts darstellt.Gets a UIObject object that represents the current custom menus and accelerators of an InvisibleApp object. Schreibgeschützt.Read-only.

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. CustomMenusexpression.CustomMenus

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

RückgabewertReturn value

UIObjectUIObject

BemerkungenRemarks

Wenn Microsoft Visio Menüs und Zugriffstasten nicht entweder programmgesteuert, durch eine Visio-Lösung oder in der Benutzeroberfläche angepasst wurden, gibt die CustomMenus -Eigenschaft Nothingzurück.If Microsoft Visio menus and accelerators have not been customized, either programmatically, by a Visio solution, or in the user interface, the CustomMenus 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 user interface (UI) for your document without replacing the application-level custom UI. 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.

 
Sub CustomMenus_Example() 
 
 Dim vsoUIObject As Visio.UIObject 
 
 '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 application-level custom menus, use them. 
 Set vsoUIObject = Visio.Application.CustomMenus 
 MsgBox "Using Custom Menus", 0 
 
 End If 
 
 Else 
 
 'Use the existing custom menus. 
 Set vsoUIObject = ThisDocument.CustomMenus 
 MsgBox "Using Custom Menus", 0 
 
 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.