Application.SetCustomMenus-Methode (Visio)

Ersetzt die aktuellen integrierten oder benutzerdefinierten Menüs einer Anwendung oder eines Dokuments.

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. SetCustomMenus (MenusObject)

expression Eine Variable, die ein Application-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
MenusObject	Erforderlich	[IVUIOBJECT]	Ein Ausdruck, der ein UIObject-Objekt zurückgibt, das die neuen benutzerdefinierten Menüs darstellt.

Rückgabewert

Nichts

Bemerkungen

Wenn das UIObject-Objekt in einem separaten Prozess mithilfe der CreateObject-Prozedur erstellt wurde, anstatt die entsprechende Eigenschaft eines Application - oder Document-Objekts zu erhalten, gibt die SetCustomMenus-Methode einen Fehler zurück.

Beispiel

Mit diesem VBA-Makro (Microsoft Visual Basic für Applikationen) wird gezeigt, wie der Benutzeroberfläche ein Menü und ein Menüelement hinzugefügt werden. Anschließend werden mit dem Makro die integrierten Menüs durch benutzerdefinierte ersetzt.

Rufen Sie die ThisDocument.ClearCustomMenus-Methode auf, um die integrierte Microsoft Visio-Benutzeroberfläche wiederherzustellen, nachdem Sie dieses Makro ausgeführt haben.

 
Public Sub SetCustomMenus_Example() 
 
 Dim vsoUIObject As Visio.UIObject 
 Dim vsoMenuSets As Visio.MenuSets 
 Dim vsoMenuSet As Visio.MenuSet 
 Dim vsoMenus As Visio.Menus 
 Dim vsoMenu As Visio.Menu 
 Dim vsoMenuItems As Visio.MenuItems 
 Dim vsoMenuItem As Visio.MenuItem 
 
 'Get a UI object that represents the Microsoft Visio built-in menus. 
 Set vsoUIObject = Visio.Application.BuiltInMenus 
 
 'Get the MenuSets collection. 
 Set vsoMenuSets = vsoUIObject.MenuSets 
 
 'Get the drawing window menu set. 
 Set vsoMenuSet = vsoMenuSets.ItemAtID(visUIObjSetDrawing) 
 
 'Get the Menus collection. 
 Set vsoMenus = vsoMenuSet.Menus 
 
 'Add a Demo menu. 
 Set vsoMenu = vsoMenus.AddAt(1) 
 vsoMenu.Caption = "Demo" 
 
 'Get the MenuItems collection. 
 Set vsoMenuItems = vsoMenu.MenuItems 
 
 'Add a menu item to the new Demo menu. 
 Set vsoMenuItem = vsoMenuItems.Add 
 
 'Set the properties for the new menu item. 
 vsoMenuItem.Caption = "&Hello" 
 vsoMenuItem.AddOnName = "MsgBox ""Hello""" 
 
 'Tell Visio to use the new UI when the document is active. 
 ThisDocument.SetCustomMenus vsoUIObject 
 
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.