Propriété InvisibleApp.BuiltInMenus (Visio)

Renvoie un objet UIObject qui représente une copie des menus et accélérateurs Microsoft Visio intégrés. En lecture seule.

Syntaxe

expression. BuiltInMenus

Expression Variable qui représente un objet InvisibleApp .

Valeur renvoyée

UIObject

Remarques

Utilisez la propriété BuiltInMenus pour obtenir un objet UIObject et modifier ses menus et accélérateurs. Utilisez ensuite la méthode SetCustomMenus d’un objet Application ou Document pour ajouter vos menus et raccourcis personnalisés à l’interface utilisateur intégrée de Visio.

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

Exemple

La macro Microsoft Visual Basic pour Applications (VBA) suivante indique comment utiliser la propriété BuiltInMenus. Elle permet d’ajouter un menu et un élément de menu à l’onglet Compléments et de définir le menu et les propriétés Caption de l’élément de menu.

Pour restaurer l’interface utilisateur intégrée dans Microsoft Visio après avoir exécuté cette macro, appelez la méthode ThisDocument.ClearCustomMenus.

 
Public Sub BuiltInMenus_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 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.