Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Obtient un objet UIObject qui représente les barres d’outils personnalisées et status actuelles d’un objet Document. En lecture seule.
Syntaxe
expression. CustomToolbars
expression Variable qui représente un objet Document .
Valeur renvoyée
UIObject
Remarques
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.
Si les barres d’outils et les barres d’status Microsoft Visio n’ont pas été personnalisées, par programmation, par une solution Visio ou 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.