Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
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
À partir de Visio 2010, l’interface utilisateur Microsoft Office Fluent a remplacé l’ancien système de menus, barres d’outils et volets Office en couches. Les objets et membres VBA que vous utilisiez 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
String
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 précaution, car vous ne pouvez pas annuler une commande Kill après son exécution 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.