Propriété ToolbarItem.ToolbarItems (Visio)

  • Article

Renvoie la collection ToolbarItems d’un objet ToolbarItem . En lecture seule.

Syntaxe

expression. ToolbarItems

Expression Variable qui représente un objet ToolbarItem .

Valeur renvoyée

ToolbarItems

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) indique comment utiliser la propriété ToolbarItems 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 ToolbarItems_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.