MenuSet.Menus-Eigenschaft (Visio)

  • Artikel

Gibt die Menus-Auflistung eines MenuSet-Objekts zurück. Schreibgeschützt.

Syntax

Ausdruck. Menus

Ausdruck Eine Variable, die ein MenuSet-Objekt darstellt.

Rückgabewert

Menüs

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.

Der Index eines Menu-Objekts innerhalb der Menus-Auflistung bestimmt die Position von links nach rechts auf der Menüleiste.

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie Sie mithilfe der Menus-Eigenschaft die Menus-Auflistung eines MenuSet-Objekts abrufen. Außerdem wird gezeigt, wie Sie der Benutzeroberfläche ein Menü und ein Menüelement hinzufügen und wie Sie die Caption-Eigenschaft des Menüs und des Menüelements festlegen.

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

 
Public Sub Menus_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 Office 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.