Document.CustomMenus-Eigenschaft (Visio)
Ruft ein UIObject-Objekt ab, das die aktuellen benutzerdefinierten Menüs und Tastenkombinationen eines Document-Objekts darstellt. Schreibgeschützt.
Syntax
Ausdruck. CustomMenus
Ausdruck Eine Variable, die ein Document-Objekt darstellt.
Rückgabewert
UIObject
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 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.