Méthode Menus.AddAt (Visio)

Article
2023-04-07

Crée un objet Menu à un index spécifié dans la collection Menus .

Syntaxe

expression. AddAt( _lIndex_ )

Expression Variable qui représente un objet Menus .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Lindex	Obligatoire	Long	Index auquel ajouter l'objet.

Valeur renvoyée

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'index correspond à zéro (0), l'objet est ajouté au début de la collection.

Le début d’une collection Menus correspond au menu situé le plus à gauche dans une disposition de menus horizontale.

Exemple

La macro suivante indique comment ajouter un menu et un élément de menu à l’interface utilisateur.

Cet exemple implique que vous ayez déjà une macro appelée « MaMacro » dans le projet Microsoft Visual Basic pour Applications (VBA) associé au document Visio actif.

Public Sub AddAt_Example() 
 Dim vsoUI As Visio.UIObject 
 Dim vsoMenuSets As Visio.MenuSets 
 Dim vsoMenuSet As Visio.MenuSet 
 Dim vsoMenus As Visio.Menus 
 Dim vsoMenu As Visio.Menu 
 Dim vsoMenuItems As Visio.MenuItems 
 Dim vsoMenuItem As Visio.MenuItem 
 
 'Get a UI object that represents Visio built-in menus. 
 Set vsoUI = Visio.Application.BuiltInMenus 
 
 'Get the MenuSets collection. 
 Set vsoMenuSets = vsoUI.MenuSets 
 
 'Get the drawing window menu set. 
 Set vsoMenuSet = vsoMenuSets.ItemAtID(visUIObjSetDrawing) 
 
 'Get the Menus collection. 
 Set vsoMenus = vsoMenuSet.Menus 
 
 'Add a Demo menu. 
 Set vsoMenu = vsoMenus.AddAt(7) 
 vsoMenu.Caption = "Demo" 
 
 'Get the MenuItems collection. 
 Set vsoMenuItems = vsoMenu.MenuItems 
 
 'Add a menu item to the new Demo menu. 
 Set vsoMenuItem = vsoMenuItems.Add 
 
 'Set the properties for the new menu item. 
 vsoMenuItem.Caption = "Run &MyMacro" 
 vsoMenuItem.AddOnName = "ThisDocument.MyMacro" 
 vsoMenuItem.ActionText = "Run MyMacro" 
 
 'Tell Visio to use the new UI when the document is active. 
 ThisDocument.SetCustomMenus vsoUI 
 
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