Propriété MenuItem.Caption (Visio)
Récupère ou définit la légende d’un élément de menu. Lecture-écriture.
Syntaxe
expression. Légende
Expression Variable qui représente un objet MenuItem .
Valeur renvoyée
String
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.
Utilisez une esperluette (&) dans la chaîne pour que le caractère suivant de la chaîne corresponde au raccourci clavier de cet élément de menu. Par exemple, la chaîne « F &o rmat » fait que o devient la touche de raccourci de cet élément de menu dans ce menu.
Utilisez "" dans la chaîne pour afficher des guillemets doubles dans le menu.
Utilisez && dans la chaîne pour afficher une esperluette (&) dans le menu.
Exemple
La macro Microsoft Visual Basic pour Applications (VBA) suivante montre comment utiliser la propriété Caption . 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 Caption_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.
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