Propriété Application.CustomToolbars (Visio)

Obtient un objet UIObject qui représente les barres d’outils personnalisées et les barres d’état actuelles d’un objet Application . En lecture seule.

Remarque

À compter de Visio 2010, l’interface utilisateur Microsoft Office Fluent a remplacé le système précédent de menus en couches, de barres d’outils et de volets Office. Les objets et membres VBA que vous avez utilisés pour personnaliser l’interface utilisateur dans les versions précédentes de Visio sont toujours disponibles dans Visio, mais ils fonctionnent différemment.

Syntaxe

expression. CustomToolbars

expressionUne variable qui représente un objetApplication.

Valeur renvoyée

UIObject

Remarques

Si les barres d’outils et les barres d’état Microsoft Visio n’ont pas été personnalisées, soit par programmation, par une solution Visio, soit dans l’interface utilisateur, la propriété CustomToolbars renvoie Nothing.

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) indique comment récupérer l'interface utilisateur active du document sans remplacer l'interface utilisateur personnalisée de niveau application. Vous devez écrire un code supplémentaire pour ajouter vos éléments d'interface utilisateur personnalisés.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.