Méthode Document.SetCustomToolbars (Visio)

Article
04/07/2023

Remplace les barres d’outils intégrée ou personnalisée actuelles d’une application ou d’un document.

Syntaxe

expression. SetCustomToolbars (ToolbarsObject)

Expression Variable qui représente un objet Document .

Parameters

Nom	Requis/Facultatif	Type de données	Description
ToolbarsObject	Requis	[IVUIOBJECT]	Expression qui renvoie un objet UIObject représentant les nouvelles barres d'outils personnalisées.

Valeur renvoyée

Aucune

Remarques

Si l’objet ToolbarsObject a été créé dans un processus distinct à l’aide de la méthode CreateObject VBA au lieu d’obtenir la propriété appropriée d’un objet Application ou Document , la méthode SetCustomToolbars renvoie une erreur.

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) indique comment utiliser la méthode SetCustomToolbars pour remplacer l’ensemble des barres d’outils intégrées par l’ensemble personnalisé. Elle récupère une copie des barres d’outils intégrées de Visio, ajoute une barre d’outils et un bouton de barre d’outils, définit l’icône du bouton, puis remplace l’ensemble des barres d’outils.

Avant d’exécuter cette macro, remplacez path\filename dans le code par le chemin d’accès complet et le nom de fichier d’un fichier d’icône (.ico) sur votre ordinateur.

Public Sub SetCustomToolbarItems_Example() 
 
 Dim vsoUIObject As Visio.UIObject 
 Dim vsoToolbarSet As Visio.ToolbarSet 
 Dim vsoToolbar As Visio.Toolbar 
 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) 
 
 'Create a new toolbar 
 Set vsoToolbar = vsoToolbarSet.Toolbars.Add 
 
 With vsoToolbar 
 .Caption = "test" 
 .Position = visBarFloating 
 .Left = 300 
 .Top = 200 
 
 .Protection = visBarNoHorizontalDock 
 .Visible = True 
 .Enabled = True 
 End With 
 
 'Get the ToolbarItems collection. 
 Set vsoToolbarItems = vsoToolbar.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.

Partager via