Propiedad Document.CustomMenus (Visio)

Obtiene un objeto UIObject que representa los menús y aceleradores personalizados actuales de un objeto Document. Solo lectura.

Sintaxis

expresión. CustomMenus

Expresión Variable que representa un objeto Document .

Valor devuelto

UIObject

Comentarios

Nota:

A partir de Visio 2010, la interfaz de usuario (UI) de Microsoft Office Fluent reemplazó al sistema anterior de menús, barras de herramientas y paneles de tareas por capas. Los objetos y miembros de VBA que usó para personalizar la interfaz de usuario en versiones anteriores de Visio siguen estando disponibles en Visio, pero funcionan de forma diferente.

Si los menús y aceleradores de Microsoft Visio no se han personalizado, ya sea mediante programación, mediante una solución de Visio o en la interfaz de usuario, la propiedad CustomMenus devuelve Nothing.

Ejemplo:

Esta macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo obtener la interfaz de usuario actualmente activa para el documento sin reemplazar la interfaz de usuario personalizada de nivel de aplicación. Para agregar elementos de interfaz de usuario personalizados es necesario escribir código adicional.

 
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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.