Compartir a través de

Propiedad UIObject.ToolbarSets (Visio)

  • Artículo

Devuelve la colección ToolbarSets de un objeto UIObject . Solo lectura.

Sintaxis

expresión. ToolbarSets

Expresión Variable que representa un objeto UIObject .

Valor devuelto

ToolbarSets

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 un objeto UIObject representa barras de herramientas, por ejemplo, si el objeto se ha recuperado mediante la propiedad BuiltInToolbars de un objeto Application, su colección ToolbarSets representa todas las barras de herramientas de dicho objeto UIObject.

Utilice la propiedad ItemAtID de un objeto ToolbarSets para recuperar las barras de herramientas de un determinado contexto de ventana, como la ventana de dibujo. Si un contexto no incluye barras de herramientas, no tiene colección ToolbarSets.

Ejemplo:

Esta macro de Microsoft Visual Basic muestra cómo utilizar la propiedad ToolbarSets para obtener un determinado objeto de una colección. También muestra cómo obtener una copia de las barras de herramientas de Visio integradas, cómo agregar un botón de barra de herramientas, cómo establecer el icono del botón y cómo reemplazar el conjunto de barras de herramientas integrado por el conjunto de barras de herramientas personalizado.

Antes de ejecutar este código, reemplace por path\filename la ruta de acceso completa a y el nombre de un archivo de icono válido (.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 ToolbarSets_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 set. 
 '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 
 vsoToolbarItem.CmdNum = visCmdPanZoom 
 
 'Set the toolbar button icon. 
 vsoToolbarItem.IconFileName "path\filename" 
 
 '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.