Document.CustomToolbars-Eigenschaft (Visio)

Ruft ein UIObject-Objekt ab, das die aktuellen benutzerdefinierten Symbolleisten und status Balken eines Document-Objekts darstellt. Schreibgeschützt.

Syntax

Ausdruck. CustomToolbars

Ausdruck Eine Variable, die ein Document-Objekt darstellt.

Rückgabewert

UIObject

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.

Wenn Microsoft Visio-Symbolleisten und status Leisten weder programmgesteuert, durch eine Visio-Projektmappe noch in der Benutzeroberfläche angepasst wurden, gibt die CustomToolbars-EigenschaftNothing zurück.

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie Sie die derzeit aktive Benutzeroberfläche für das Dokument abrufen, ohne die benutzerdefinierte Benutzeroberfläche auf der Anwendungsebene zu ersetzen. Sie müssen zusätzlichen Code schreiben, um die benutzerdefinierten Benutzeroberflächenelemente hinzuzufügen.

Sub CustomToolbars_Example() 
 
 Dim vsoUIObject As Visio.UIObject 
 
 'Check whether there are custom toolbars bound to the document. 
 If ThisDocument.CustomToolbars Is Nothing Then 
 
 'If not, check whether there are custom toolbars bound to the application. 
 If Visio.Application.CustomToolbars Is Nothing Then 
 
 'If not, use the Visio built-in toolbars. 
 Set vsoUIObject = Visio.Application.BuiltInToolbars(0) 
 MsgBox "Using Built-In Toolbars", 0 
 
 Else 
 
 'If there are existing Visio application-level custom toolbars, use them. 
 Set vsoUIObject = Visio.Application.CustomToolbars 
 MsgBox "Using Custom Toolbars", 0 
 
 End If 
 
 Else 
 
 'Use the existing custom toolbars. 
 Set vsoUIObject = ThisDocument.CustomToolbars 
 MsgBox "Using Custom Toolbars", 0 
 
 End If 
 
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.