Compartir a través de

Propiedad Application.BuiltInMenus (Visio)

  • Artículo

Devuelve un objeto UIObject que representa una copia de los menús y aceleradores integrados de Microsoft Visio. Solo lectura.

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

expresión Variable que representa un objeto Application.

Valor devuelto

UIObject

Comentarios

Utilice la propiedad BuiltInMenus para obtener un objeto UIObject y modificar sus menús y aceleradores. A continuación, puede usar el método SetCustomMenus de un objeto Application o Document para agregar los menús y los aceleradores personalizados a la interfaz de usuario integrada de Visio.

También puede utilizar el método SaveToFile del objeto UIObject para almacenar sus menús en un archivo y volverlos a cargar como menús personalizados estableciendo la propiedad CustomMenusFile de un objeto Application o Document.

Ejemplo:

En la siguiente macro de Microsoft Visual Basic para Aplicaciones (VBA) se muestra cómo usar la propiedad BuiltInMenus. Agrega un menú y un elemento de menú a la ficha Complementos y establece las propiedades Caption del menú y el elemento de menú.

Para restaurar la interfaz de usuario integrada de Microsoft Visio después de ejecutar esta macro, llame al método ThisDocument.ClearCustomMenus.

 
Public Sub BuiltInMenus_Example() 
 
 Dim vsoUIObject As Visio.UIObject 
 Dim vsoMenuSets As Visio.MenuSets 
 Dim vsoMenuSet As Visio.MenuSet 
 Dim vsoMenus As Visio.Menus 
 Dim vsoMenu As Visio.Menu 
 Dim vsoMenuItems As Visio.MenuItems 
 Dim vsoMenuItem As Visio.MenuItem 
 
 'Get a UIObject object that represents Visio built-in menus. 
 Set vsoUIObject = Visio.Application.BuiltInMenus 
 
 'Get the MenuSets collection. 
 Set vsoMenuSets = vsoUIObject.MenuSets 
 
 'Get the drawing window menu set. 
 Set vsoMenuSet = vsoMenuSets.ItemAtID(visUIObjSetDrawing) 
 
 'Get the Menus collection. 
 Set vsoMenus = vsoMenuSet.Menus 
 
 'Add a new menu before the Window menu. 
 Set vsoMenu = vsoMenus.AddAt(7) 
 vsoMenu.Caption = "MyNewMenu" 
 
 'Get the MenuItems collection. 
 Set vsoMenuItems = vsoMenu.MenuItems 
 
 'Add a menu item to the new menu. 
 Set vsoMenuItem = vsoMenuItems.Add 
 
 'Set the Caption property for the new menu item. 
 vsoMenuItem.Caption = "&MyNewMenuItem" 
 
 'Tell Visio to use the new UI when the document is active. 
 ThisDocument.SetCustomMenus vsoUIObject 
 
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.