Propiedad InvisibleApp.BuiltInToolbars (Visio)

Devuelve un objeto UIObject que representa una copia de las barras de herramientas integradas 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. BuiltInToolbars (fIgnored)

Expresión Variable que representa un objeto InvisibleApp .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
fIgnored	Obligatorio	Integer	Aunque es necesario para la compatibilidad con versiones anteriores, se omite. Es aconsejable que pase el valor cero (0).

Valor devuelto

UIObject

Comentarios

Utilice la propiedad BuiltInToolbars para obtener un objeto UIObject y modificar sus barras de herramientas. A continuación puede utilizar el método SetCustomToolbars de un objeto Application o Document para sustituir las barras de herramientas integradas de Visio por las barras de herramientas personalizadas.

También puede utilizar el método SaveToFile del objeto UIObject para almacenar sus barras de herramientas en un archivo y volverlas a cargar como barras de herramientas personalizadas estableciendo la propiedad CustomToolbarsFile de un objeto Application o Document.

Antes de Visio 5.0, el argumento de esta propiedad era fWhichToolbars, que designaba el tipo de barra de herramientas que se va a obtener (MSOffice o LotusSS). A partir de Visio 5.0, la aplicación ya no admite diferentes tipos de barras de herramientas y se omite el argumento actual, fIgnored.

Ejemplo:

Esta macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo utilizar la propiedad BuiltInToolbars para obtener una copia de las barras de herramientas integradas de Visio, agregar un botón de barra de herramientas, establecer el icono del botón y reemplazar el grupo de barras de herramientas integradas por el grupo personalizado.

Antes de ejecutar esta macro, reemplace (path\filename) en el código siguiente por la ruta de acceso completa y el nombre de archivo de un archivo de icono (.ico) en el equipo.

Para restaurar las barras de herramientas integradas de Visio después de ejecutar la macro, llame al método ThisDocument.ClearCustomToolbars.

 
Public Sub BuiltInToolbars_Example() 
 
 Dim vsoUIObject As Visio.UIObject 
 Dim vsoToolbarSet As Visio.ToolbarSet 
 Dim vsoToolbarItems As Visio.ToolbarItems 
 Dim vsoToolbarItem As Visio.ToolbarItem 
 
 'Get the UIObject object for the copy of the built-in toolbars. 
 Set vsoUIObject = Visio.Application.BuiltInToolbars(0) 
 
 'Get the drawing window toolbar sets. 
 'NOTE: Use ItemAtID to get the toolbar sets. 
 'Using vsoUIObject.ToolbarSets(visUIObjSetDrawing) will not work. 
 Set vsoToolbarSet = vsoUIObject.ToolbarSets.ItemAtID(visUIObjSetDrawing) 
 
 'Get the ToolbarItems collection. 
 Set vsoToolbarItems = vsoToolbarSet.Toolbars(0).ToolbarItems 
 
 'Add a new button in the first position. 
 Set vsoToolbarItem = vsoToolbarItems.AddAt(0) 
 
 'Set properties for the new toolbar button. 
 vsoToolbarItem.CntrlType = visCtrlTypeBUTTON 
 
 'Set the caption for the new toolbar button. 
 vsoToolbarItem.Caption = "MyButton" 
 
 'Set the icon for the new toolbar button. 
 vsoToolbarItem.IconFileName "(path\filename )" 
 
 'Tell Visio to actually use the new custom UI. 
 ThisDocument.SetCustomToolbars 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.