Freigeben über


Application.SetCustomToolbars-Methode (Visio)

Ersetzt die aktuellen integrierten oder benutzerdefinierten Symbolleisten einer Anwendung oder eines Dokuments.

Syntax

Ausdruck. SetCustomToolbars (ToolbarsObject)

expression Eine Variable, die ein Application-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
ToolbarsObject Erforderlich [IVUIOBJECT] Ein Ausdruck, der ein UIObject-Objekt zurückgibt, das die neuen benutzerdefinierten Symbolleisten darstellt.

Rückgabewert

Nichts

Bemerkungen

Wenn das ToolbarsObject-Objekt in einem separaten Prozess mit der VBA CreateObject-Methode erstellt wurde, anstatt die entsprechende Eigenschaft eines Application - oder Document-Objekts zu erhalten, gibt die SetCustomToolbars-Methode einen Fehler zurück.

Beispiel

Mit diesem VBA-Makro (Microsoft Visual Basic für Applikationen) wird gezeigt, wie mit der SetCustomToolbars-Methode die integrierten Symbolleisten durch benutzerdefinierte ersetzt werden. 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.

Ersetzen Sie vor dem Ausführen dieses Makros path\filename im Code durch den vollständigen Pfad zu und den Dateinamen einer Symboldatei (.ico) auf Ihrem 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 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.