Méthode InvisibleApp.SetCustomToolbars (Visio)
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 InvisibleApp .
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
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 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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour