UIObject.ToolbarSets-Eigenschaft (Visio)

Artikel
04/07/2023

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

Syntax

Ausdruck. ToolbarSets

Ausdruck Eine Variable, die ein UIObject-Objekt darstellt.

Rückgabewert

ToolbarSets

Hinweise

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.

Stellt ein UIObject-Objekt Symbolleisten dar (wenn es beispielsweise über die BuiltInToolbars-Eigenschaft eines Application-Objekts abgerufen wurde), enthält seine ToolbarSets-Auflistung alle Symbolleisten für dieses UIObject-Objekt.

Verwenden Sie die ItemAtID-Eigenschaft eines ToolbarSets-Objekts, um die Symbolleisten für einen bestimmten Fensterkontext, beispielsweise das Zeichnungsfenster, abzurufen. Enthält ein Kontext keine Symbolleisten, verfügt er nicht über eine ToolbarSets-Auflistung.

Beispiel

Das folgende Microsoft Visual Basic-Makro zeigt, wie die ToolbarSets-Eigenschaft verwendet werden kann, um ein bestimmtes Objekt aus einer Auflistung abzurufen. Es zeigt außerdem, wie folgende Aufgaben durchgeführt werden können: Kopieren der in Visio integrierten Symbolleisten, Hinzufügen einer Symbolleistenschaltfläche, Festlegen des Schaltflächensymbols und Ersetzen der integrierten durch eine benutzerdefinierte Symbolleiste.

Ersetzen path\filename Sie vor dem Ausführen dieses Codes durch den vollständigen Pfad zu und den Namen einer gültigen Symboldatei (.ico) auf Ihrem Computer.

Rufen Sie nach Ausführung dieses Makros die ThisDocument.ClearCustomToolbars-Methode auf, um die integrierten Visio-Symbolleisten wiederherzustellen.

 
Public Sub ToolbarSets_Example() 
 
 Dim vsoUIObject As Visio.UIObject 
 Dim vsoToolbarSet As Visio.ToolbarSet 
 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) 
 
 'Get the ToolbarItems collection. 
 Set vsoToolbarItems = vsoToolbarSet.Toolbars(0).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 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.

Freigeben über