Propiedad InvisibleApp.CustomMenusFile (Visio)

Obtiene o establece el nombre del archivo que define menús y aceleradores personalizados para un objeto InvisibleApp . Lectura y escritura.

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.

Sintaxis

expresión. CustomMenusFile

Expresión Variable que representa un objeto InvisibleApp .

Valor devuelto

Cadena

Comentarios

Si el objeto no utiliza menús personalizados, la propiedad CustomMenusFile devuelve Nothing.

Ejemplo:

Esta macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo obtener la interfaz de usuario que se encuentra activa para el documento sin reemplazar la interfaz de usuario personalizada de nivel de aplicación. También guarda en un archivo los menús personalizados existentes y especifica que el documento actual debe usar dichos menús. Para agregar elementos de interfaz de usuario personalizados es necesario escribir código adicional.

Precaución

Esta macro utiliza la palabra clave de VBA Kill para eliminar un archivo del disco. Use esta palabra clave cuidadosamente porque no puede deshacer un comando Kill después de que se haya ejecutado y no recibirá un mensaje de advertencia anterior.

 
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

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.