Propriété Document.CustomMenusFile (Visio)

Obtient ou définit le nom du fichier qui définit des menus et des accélérateurs personnalisés pour un objet Document . Lecture-écriture.

Syntaxe

expression. CustomMenusFile

Expression Variable qui représente un objet Document .

Valeur renvoyée

Chaîne

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'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.

Remarque

Cette macro utilise le mot clé VBA Kill pour supprimer un fichier du disque. Utilisez ce mot clé avec prudence car il est impossible d'annuler une commande Kill une fois qu'elle a été exécutée et vous ne recevrez pas de message d'avertissement préalable.

 
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.