Application.BuiltInToolbars-Eigenschaft (Visio)

Artikel
10/16/2024

Gibt ein UIObject-Objekt zurück, das eine Kopie der integrierten Microsoft Visio-Symbolleisten darstellt. Schreibgeschützt.

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.

Syntax

Ausdruck. BuiltInToolbars (fIgnored)

expression Eine Variable, die ein Application-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
fIgnored	Erforderlich	Integer	Der Wert ist für die Abwärtskompatibilität erforderlich, wird jedoch ignoriert. Es wird empfohlen, dass Sie Null (0) übergeben.

Rückgabewert

UIObject

Hinweise

Verwenden Sie die BuiltInToolbars-Eigenschaft , um ein UIObject-Objekt abzurufen und dessen Symbolleisten zu ändern. Verwenden Sie die SetCustomToolbars-Methode eines Application- oder Document-Objekts, um die benutzerdefinierten Symbolleisten durch die integrierten Symbolleisten von Visio zu ersetzen.

Sie können die SaveToFile-Methode des UIObject-Objekts auch verwenden, um dessen Symbolleisten in einer Datei zu speichern und sie als benutzerdefinierte Symbolleisten neu zu laden, indem Sie die CustomToolbarsFile-Eigenschaft eines Application- oder Document-Objekts festlegen.

Vor Visio 5.0 lautete das Argument für diese Eigenschaft fWhichToolbars, das den Typ der abzurufenden Symbolleiste (MSOffice oder LotusSS) angibt. Ab Visio 5.0 unterstützt die Anwendung keine verschiedenen Symbolleistentypen mehr, und das aktuelle Argument fIgnored wird ignoriert.

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie die BuiltInToolbars-Eigenschaft zum Erstellen einer Kopie der integrierten Visio-Symbolleisten verwendet wird, eine Symbolleistenschaltfläche hinzugefügt, das Schaltflächensymbol festgelegt und der integrierten Symbolleistensatz durch einen benutzerdefinierten Satz ersetzt wird.

Ersetzen (path\filename) Sie vor dem Ausführen dieses Makros im folgenden Code durch den vollständigen Pfad zu und den Dateinamen einer Symboldatei (.ico) auf Ihrem Computer.

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

 
Public Sub BuiltInToolbars_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 sets.'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 
 
 'Set the caption for the new toolbar button. 
 vsoToolbarItem.Caption = "MyButton" 
 
 'Set the icon for the new toolbar button. 
 vsoToolbarItem.IconFileName "(path\filename)" 'Tell Visio to actually 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