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

Ersetzt die aktuellen integrierten oder benutzerdefinierten Symbolleisten einer Anwendung oder eines Dokuments.Replaces the current built-in or custom toolbars of an application or document.

SyntaxSyntax

Ausdruck. SetCustomToolbars (__ Toolbars)expression.SetCustomToolbars (ToolbarsObject)

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

ParameterParameters

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

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 toolbarobject -Objekt mithilfe der VBA- CreateObject -Methode in einem separaten Prozess erstellt wurde, statt die entsprechende Eigenschaft eines Application -oder Document -Objekts abzurufen, wird die SetCustomToolbars -Methode Gibt einen Fehler zurück.If the ToolbarsObject object was created in a separate process by using the VBA CreateObject method instead of getting the appropriate property of an Application or Document object, the SetCustomToolbars method returns an error.

BeispielExample

Dieses VBA-Makro (Microsoft Visual Basic for Applications) zeigt, wie die SetCustomToolbars -Methode verwendet wird, um die integrierte Symbolleistengruppe durch die benutzerdefinierte Gruppe zu ersetzen.This Microsoft Visual Basic for Applications (VBA) macro shows how to use the SetCustomToolbars method to replace the built-in toolbar set with the custom set. Das Makro ruft eine Kopie der integrierten Visio-Symbolleisten ab, fügt eine Symbolleiste und eine Symbolleistenschaltfläche hinzu, legt das Schaltflächensymbol fest und ersetzt dann die Symbolleisten.It retrieves a copy of the built-in Visio toolbars, adds a toolbar and a toolbar button, sets the button icon, and then replaces the toolbar set.

Ersetzen Sie vor dem Ausführen dieses Makros path\filename im Code durch den vollständigen Pfad und den Dateinamen einer Symboldatei (ICO) auf Ihrem Computer.Before running this macro, replace path\filename in the code with the full path to and filename of an icon file (.ico) on your computer.

Public Sub SetCustomToolbarItems_Example() 
 
 Dim vsoUIObject As Visio.UIObject 
 Dim vsoToolbarSet As Visio.ToolbarSet 
 Dim vsoToolbar As Visio.Toolbar 
 Dim vsoToolbarItems As Visio.ToolbarItems 
 Dim vsoToolbarItem As Visio.ToolbarItem 
 
 'Get the UIObject object for the copy of the built-in toolbars. 
 Set vsoUIObject = Visio.Application.BuiltInToolbars(0) 
 
 'Get the drawing window toolbar sets. 
 'NOTE: Use ItemAtID to get the toolbar set. 
 'Using vsoUIObject.ToolbarSets(visUIObjSetDrawing) will not work. 
 Set vsoToolbarSet = vsoUIObject.ToolbarSets.ItemAtID(visUIObjSetDrawing) 
 
 'Create a new toolbar 
 Set vsoToolbar = vsoToolbarSet.Toolbars.Add 
 
 With vsoToolbar 
 .Caption = "test" 
 .Position = visBarFloating 
 .Left = 300 
 .Top = 200 
 
 .Protection = visBarNoHorizontalDock 
 .Visible = True 
 .Enabled = True 
 End With 
 
 'Get the ToolbarItems collection. 
 Set vsoToolbarItems = vsoToolbar.ToolbarItems 
 
 'Add a new button in the first position. 
 Set vsoToolbarItem = vsoToolbarItems.AddAt(0) 
 
 'Set properties for the new toolbar button. 
 vsoToolbarItem.CntrlType = visCtrlTypeBUTTON 
 vsoToolbarItem.CmdNum = visCmdPanZoom 
 
 'Set the toolbar button icon. 
 vsoToolbarItem.IconFileName "path\filename " 
 
 'Use the new custom UI. 
 ThisDocument.SetCustomToolbars 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.