UIObject.MenuSets-Eigenschaft (Visio)

Gibt die MenuSets-Auflistung eines UIObject-Objekts zurück. Schreibgeschützt.

Syntax

Ausdruck. MenuSets

Ausdruck Eine Variable, die ein UIObject-Objekt darstellt.

Rückgabewert

MenuSets

HinwBemerkungeneise

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 ein UIObject-Objekt Menüs und Zugriffstasten darstellt (z. B., falls das Objekt mithilfe der BuiltInMenus-Eigenschaft eines Application- oder Document-Objekts abgerufen wurde), stellt die MenuSets-Auflistung alle Menüs für dieses UIObject-Objekt dar.

Verwenden Sie die ItemAtID-Eigenschaft eines MenuSets-Objekts, um Menüs für einen bestimmten Fensterkontext wie das Zeichnungsfenster abzurufen. Falls ein Kontext keine Menüs enthält, ist keine MenuSets-Auflistung vorhanden.

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie Sie mithilfe der MenuSets-Eigenschaft die MenuSets-Auflistung eines UIObject-Objekts abrufen. Außerdem wird gezeigt, wie Sie dem Menüsatz im Zeichnungsfenster ein Menü und ein Menüelement hinzufügen und wie Sie die Caption-Eigenschaften des Menüs und des Menüelements festlegen.

Rufen Sie die ThisDocument.ClearCustomMenus-Methode auf, um die integrierten Menüs in Microsoft Visio wiederherzustellen, nachdem Sie dieses Makro ausgeführt haben.

Public Sub MenuSets_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 UIObject object that represents 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 new menu before the Window menu. 
 Set vsoMenu = vsoMenus.AddAt(7) 
 vsoMenu.Caption = "MyNewMenu" 
 
 'Get the MenuItems collection. 
 Set vsoMenuItems = vsoMenu.MenuItems 
 
 'Add a menu item to the new menu. 
 Set vsoMenuItem = vsoMenuItems.Add 
 
 'Set the Caption property for the new menu item. 
 vsoMenuItem.Caption = "&MyNewMenuItem" 
 
 '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.