Método Application.SetCustomToolbars (Visio)
Reemplaza las barras de herramientas integradas o personalizadas actuales de una aplicación o un documento.
Sintaxis
expresión. SetCustomToolbars (ToolbarsObject)
expresión Variable que representa un objeto Application.
Parámetros
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| ToolbarsObject | Obligatorio | [IVUIOBJECT] | Expresión que devuelve un objeto UIObject que representa las nuevas barras de herramientas personalizadas. |
Valor devuelto
Nothing
Comentarios
Si el objeto ToolbarsObject se creó en un proceso independiente mediante el método CreateObject de VBA en lugar de obtener la propiedad adecuada de un objeto Application o Document , el método SetCustomToolbars devuelve un error.
Ejemplo:
Esta macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo usar el método SetCustomToolbars para reemplazar el conjunto de barras de herramientas integrado por el conjunto personalizado. Recupera una copia de las barras de herramientas integradas de Visio, agrega una barra de herramientas y un botón de barra de herramientas, establece el icono para dicho botón y, a continuación, reemplaza el conjunto de barras de herramientas.
Antes de ejecutar esta macro, reemplace path\filename en el código por la ruta de acceso completa a y el nombre de archivo de un archivo de icono (.ico) en el equipo.
Public Sub SetCustomToolbarItems_Example()
Dim vsoUIObject As Visio.UIObject
Dim vsoToolbarSet As Visio.ToolbarSet
Dim vsoToolbar As Visio.Toolbar
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)
'Create a new toolbar
Set vsoToolbar = vsoToolbarSet.Toolbars.Add
With vsoToolbar
.Caption = "test"
.Position = visBarFloating
.Left = 300
.Top = 200
.Protection = visBarNoHorizontalDock
.Visible = True
.Enabled = True
End With
'Get the ToolbarItems collection.
Set vsoToolbarItems = vsoToolbar.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.