InvisibleApp.CustomMenus-Eigenschaft (Visio)

  • Artikel

Ruft ein UIObject-Objekt ab, das die aktuellen benutzerdefinierten Menüs und Zugriffstasten eines InvisibleApp-Objekts darstellt. Schreibgeschützt.

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

Ausdruck Eine Variable, die ein InvisibleApp-Objekt darstellt.

Rückgabewert

Uiobject

HinwBemerkungeneise

Wenn Microsoft Visio-Menüs und Zugriffstasten weder programmgesteuert, durch eine Visio-Projektmappe noch über die Benutzeroberfläche angepasst wurden, gibt die CustomMenus-EigenschaftNothing 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. Sie müssen zusätzlichen Code schreiben, um die benutzerdefinierten Benutzeroberflächenelemente hinzuzufügen.

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