Propriété UIObject.MenuSets (Visio)

  • Article

Renvoie la collection MenuSets d'un objet UIObject. En lecture seule.

Syntaxe

expression. MenuSets

Expression Variable qui représente un objet UIObject .

Valeur renvoyée

MenuSets

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 un objet UIObject représente des menus et des raccourcis (par exemple, si l'objet a été récupéré à l'aide de la propriété BuiltInMenus d'un objet Application ou Document), sa collection MenuSets représente tous les menus de cet objet UIObject.

Utilisez la propriété ItemAtID d'un objet MenuSets pour récupérer les menus d'un contexte de fenêtre particulier, tel que la fenêtre de dessin. Si un contexte n'inclut pas les menus, il n'a pas de collection MenuSets.

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) indique comment utiliser la propriété MenuSets pour récupérer la collection MenuSets d'un objet UIObject. Elle permet d'ajouter un menu et un élément de menu au menu de la fenêtre de dessin et de définir le menu et les propriétés Caption de l'élément de menu.

Pour restaurer les menus intégrés de Microsoft Visio après avoir exécuté cette macro, appelez la méthode ThisDocument.ClearCustomMenus.

Public Sub MenuSets_Example() 
 
 Dim vsoUIObject 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 UIObject object that represents Microsoft Visio built-in menus. 
 Set vsoUIObject = Visio.Application.BuiltInMenus 
 
 'Get the MenuSets collection. 
 Set vsoMenuSets = vsoUIObject.MenuSets 
 
 'Get the drawing window menu set. 
 Set vsoMenuSet = vsoMenuSets.ItemAtId(visUIObjSetDrawing) 
 
 'Get the Menus collection. 
 Set vsoMenus = vsoMenuSet.Menus 
 
 'Add a new menu before the Window menu. 
 Set vsoMenu = vsoMenus.AddAt(7) 
 vsoMenu.Caption = "MyNewMenu" 
 
 'Get the MenuItems collection. 
 Set vsoMenuItems = vsoMenu.MenuItems 
 
 'Add a menu item to the new menu. 
 Set vsoMenuItem = vsoMenuItems.Add 
 
 'Set the Caption property for the new menu item. 
 vsoMenuItem.Caption = "&MyNewMenuItem" 
 
 'Tell Visio to use the new UI when the document is active. 
 ThisDocument.SetCustomMenus 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.