PROPRIÉTÉ UIObject.ToolbarSets (Visio)

Renvoie la collection ToolbarSets d’un objet UIObject . En lecture seule.

Syntaxe

expression. ToolbarSets

Expression Variable qui représente un objet UIObject .

Valeur renvoyée

ToolbarSets

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 un objet UIObject représente des barres d’outils (par exemple, si l’objet a été récupéré à l’aide de la propriété BuiltInToolbars d’un objet Application), la collection ToolbarSets représente toutes les barres d’outils de cet objet UIObject.

Utilisez la propriété ItemAtID d'un objet ToolbarSets pour récupérer des barres d'outils pour un contexte de fenêtre spécifique, la fenêtre de dessin, par exemple. Les contextes sans barre d'outils n'ont pas de collection ToolbarSets.

Exemple

Cette macro Microsoft Visual Basic indique comment utiliser la propriété ToolbarSets pour récupérer un objet spécifique d'une collection. Elle indique également comment obtenir une copie des barres d'outils intégrées de Visio, ajouter un bouton de barre d'outils, définir l'icône du bouton et remplacer l'ensemble des barres d'outils intégrées par l'ensemble personnalisé.

Avant d’exécuter ce code, remplacez par path\filename le chemin complet et le nom d’un fichier d’icône valide (.ico) sur votre ordinateur.

Pour restaurer les barres d'outils intégrées de Visio après avoir exécuté cette macro, appelez la méthode ThisDocument.ClearCustomToolbars.

 
Public Sub ToolbarSets_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 set. 
 '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 
 vsoToolbarItem.CmdNum = visCmdPanZoom 
 
 'Set the toolbar button icon. 
 vsoToolbarItem.IconFileName "path\filename" 
 
 'Use the new custom UI. 
 ThisDocument.SetCustomToolbars vsoUIObject 
 
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.