Propriété Document.CustomMenus (Visio)

Obtient un objet UIObject qui représente les menus personnalisés et les accélérateurs actuels d’un objet Document . En lecture seule.

Syntaxe

expression. CustomMenus

Expression Variable qui représente un objet Document .

Valeur renvoyée

UIObject

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 les menus et accélérateurs Microsoft Visio n’ont pas été personnalisés, soit par programmation, par une solution Visio, soit dans l’interface utilisateur, la propriété CustomMenus renvoie Nothing.

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) indique comment récupérer l'interface utilisateur active du document sans remplacer l'interface utilisateur personnalisée de niveau application. Vous devez écrire un code supplémentaire pour ajouter vos éléments d'interface utilisateur personnalisés.

 
Sub CustomMenus_Example() 
 
 Dim vsoUIObject As Visio.UIObject 
 
 '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 application-level custom menus, use them. 
 Set vsoUIObject = Visio.Application.CustomMenus 
 MsgBox "Using Custom Menus", 0 
 
 End If 
 
 Else 
 
 'Use the existing custom menus. 
 Set vsoUIObject = ThisDocument.CustomMenus 
 MsgBox "Using Custom Menus", 0 
 
 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.