InvisibleApp. SetCustomMenus-Methode (Visio)InvisibleApp.SetCustomMenus method (Visio)

Ersetzt die aktuellen integrierten oder benutzerdefinierten Menüs einer Anwendung oder eines Dokuments.Replaces the current built-in or custom menus of an application or document.

SyntaxSyntax

Ausdruck. SetCustomMenus (Menuobject)expression.SetCustomMenus (MenusObject)

Ausdruck Eine Variable, die ein InvisibleApp -Objekt darstellt.expression A variable that represents an InvisibleApp object.

ParameterParameters

NameName Erforderlich/OptionalRequired/Optional DatentypData type BeschreibungDescription
MenusMenusObject ErforderlichRequired [IVUIOBJECT][IVUIOBJECT] Ein Ausdruck, der ein UIObject -Objekt zurückgibt, das die neuen benutzerdefinierten Menüs darstellt.An expression that returns a UIObject object that represents the new custom menus.

RückgabewertReturn value

NichtsNothing

BemerkungenRemarks

Hinweis

Beginnend mit Visio 2010 wurde das vorherige System mit mehrstufigen Menüs, Symbolleisten und Aufgabenbereichen vom Microsoft Office Fluent-Benutzeroberfläche (UI) ersetzt.Starting with Visio 2010, the Microsoft Office Fluent user interface (UI) replaced the previous system of layered menus, toolbars, and task panes. VBA-Objekte und-Elemente, die Sie zum Anpassen der Benutzeroberfläche in früheren Versionen von Visio verwendet haben, sind weiterhin in Visio verfügbar, funktionieren jedoch anders.VBA objects and members that you used to customize the user interface in previous versions of Visio are still available in Visio, but they function differently.

Wenn das UIObject -Objekt mithilfe der CreateObject-Prozedur in einem separaten Prozess erstellt wurde, statt die entsprechende Eigenschaft eines Application -oder Document -Objekts abzurufen, gibt die SetCustomMenus -Methode einen Fehler zurück.If the UIObject object was created in a separate process by using the CreateObject procedure instead of getting the appropriate property of an Application or Document object, the SetCustomMenus method returns an error.

BeispielExample

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.This Microsoft Visual Basic for Applications (VBA) macro shows how to add a menu and menu item to the user interface, and then replace the built-in menu set with the custom set.

Rufen Sie die ThisDocument. ClearCustomMenus -Methode auf, um die Microsoft Visio integrierte Benutzeroberfläche wiederherzustellen, nachdem Sie dieses Makro ausgeführt haben.To restore the Microsoft Visio built-in user interface after you run this macro, call the ThisDocument.ClearCustomMenus method.

 
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 FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.