Freigeben über


Toolbar.ToolbarItems-Eigenschaft (Visio)

Gibt die ToolbarItems-Auflistung eines Toolbar-Objekts zurück. Schreibgeschützt.

Syntax

Ausdruck. ToolbarItems

Ausdruck Eine Variable, die ein Toolbar-Objekt darstellt.

Rückgabewert

ToolbarItems

Beispiel

Das folgende VBA-Makro (Microsoft Visual Basic für Applikationen) zeigt, wie die ToolbarItems-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 ToolbarItems_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.