Propriété Application.CustomMenusFile (Visio)

Article
04/07/2023

Récupère ou définit le nom du fichier qui active les menus et les raccourcis personnalisés d’un objet Application. Lecture-écriture.

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.

Syntaxe

expression. CustomMenusFile

expressionUne variable qui représente un objetApplication.

Valeur renvoyée

Chaîne

Remarques

Si l'objet n'utilise pas de menus personnalisés, la propriété CustomMenusFile renvoie Nothing.

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) illustre comment récupérer l'interface utilisateur active du document sans remplacer l'interface utilisateur personnalisée de niveau application. Elle enregistre également tous les menus personnalisés existants dans un fichier et indique que le document actif utilise ces menus. Vous devez écrire un code supplémentaire pour ajouter vos éléments d'interface utilisateur personnalisés.

Attention

Cette macro utilise le mot clé VBA Kill pour supprimer un fichier du disque. Utilisez ce mot clé avec soin, car vous ne pouvez pas annuler une commande Kill une fois qu’elle a été exécutée, et vous ne recevrez pas de message d’avertissement précédent.

 
Sub CustomMenusFile_Example() 
 
 Dim vsoUIObject As Visio.UIObject 
 Dim strPath As String 
 
 'Check whether there are custom menus bound to the document. 
 If ThisDocument.CustomMenus Is Nothing Then 
 
 'If not, check whether there are custom menus bound to the application. 
 If Visio.Application.CustomMenus Is Nothing Then 
 
 'If not, use the Visio built-in menus. 
 Set vsoUIObject = Visio.Application.BuiltInMenus 
 MsgBox "Using Built-In Menus", 0 
 
 Else 
 
 'If there are existing Visio custom menus, use them. 
 Set vsoUIObject = Visio.Application.CustomMenus 
 
 'Save these custom menus to a file. 
 strPath = Visio.Application.Path & "\CustomUI.vsu" 
 vsoUIObject.SaveToFile (strPath) 
 
 'Set the document to use the existing custom UI. 
 ThisDocument.CustomMenusFile = strPath 
 
 'Get this document's UIObject object. 
 Set vsoUIObject = ThisDocument.CustomMenus 
 
 'Delete the newly created temp file. 
 Kill Visio.Application.Path & "\CustomUI.vsu" 
 ThisDocument.ClearCustomMenus 
 MsgBox "Using Custom Menus", 0 
 
 End If 
 
 Else 
 
 'Use the existing custom menus. 
 Set vsoUIObject = ThisDocument.CustomMenus 
 
 End If 
 
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