Application.BuiltInMenus-Eigenschaft (Visio)

Gibt ein UIObject-Objekt zurück, das eine Kopie der integrierten Microsoft Visio-Menüs und Zugriffstasten 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. BuiltInMenus

expression Eine Variable, die ein Application-Objekt darstellt.

Rückgabewert

Uiobject

HinwBemerkungeneise

Verwenden Sie die BuiltInMenus-Eigenschaft , um ein UIObject-Objekt abzurufen und seine Menüs und Zugriffstasten zu ändern. Anschließend können Sie mit der SetCustomMenus-Methode eines Application- oder Document-Objekts der in Visio integrierten Benutzeroberfläche die benutzerdefinierten Menüs und Zugriffstasten hinzufügen.

Sie können auch die SaveToFile-Methode des UIObject-Objekts verwenden, um dessen Menüs in einer Datei zu speichern und sie als benutzerdefinierte Menüs erneut zu laden, indem Sie die CustomMenusFile-Eigenschaft eines Application- oder Document-Objekts festlegen.

Beispiel

Das folgende VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht die Verwendung der BuiltInMenus-Eigenschaft. Außerdem wird gezeigt, wie Sie auf der Registerkarte Add-Ins 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 integrierte Benutzeroberfläche in Microsoft Visio wiederherzustellen, nachdem Sie dieses Makro ausgeführt haben.

 
Public Sub BuiltInMenus_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 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.