Propriété Application.BuiltInToolbars (Visio)

Article
04/07/2023

Renvoie un objet UIObject qui représente une copie des barres d’outils Microsoft Visio intégrées. 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. BuiltInToolbars (fIgnored)

expressionUne variable qui représente un objetApplication.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
fIgnored	Requis	Integer	Obligatoire pour la compatibilité des versions précédentes, mais non pris en compte. Il vous est recommandé de transmettre zéro (0).

Valeur renvoyée

UIObject

Remarques

Utilisez la propriété BuiltInToolbars pour obtenir un objet UIObject et modifier ses barres d’outils. Vous pouvez ensuite utiliser la méthode SetCustomToolbars d'un objet Application ou Document pour remplacer les barres d'outils intégrées Visio par vos barres d'outils personnalisées.

Vous pouvez également utiliser la méthode SaveToFile de l'objet UIObject pour stocker ses barres d'outils dans un fichier et les charger sous la forme de barres d'outils personnalisées en définissant la propriété CustomToolbarsFile d'un objet Application ou Document.

Avant Visio 5.0, l’argument de cette propriété était fWhichToolbars, qui désignait le type de barre d’outils à obtenir (MSOffice ou LotusSS). À compter de Visio 5.0, l’application ne prend plus en charge différents types de barres d’outils et l’argument actuel, fIgnored, est ignoré.

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) indique comment utiliser la propriété BuiltInToolbars pour 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 cette macro, remplacez (path\filename) dans le code suivant par le chemin d’accès complet et le nom de fichier d’un fichier d’icône (.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 BuiltInToolbars_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 sets.'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 
 
 'Set the caption for the new toolbar button. 
 vsoToolbarItem.Caption = "MyButton" 
 
 'Set the icon for the new toolbar button. 
 vsoToolbarItem.IconFileName "(path\filename)" 'Tell Visio to actually 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.

Partager via