Compartir a través de

Propiedad Document.CustomToolbars (Visio)

  • Artículo

Obtiene un objeto UIObject que representa las barras de herramientas personalizadas y las barras de estado actuales de un objeto Document . Solo lectura.

Sintaxis

expresión. CustomToolbars

Expresión Variable que representa un objeto Document .

Valor devuelto

UIObject

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 las barras de herramientas y las barras de estado de Microsoft Visio no se han personalizado, ya sea mediante programación, mediante una solución de Visio o en la interfaz de usuario, la propiedad CustomToolbars devuelve Nothing.

Ejemplo:

Esta macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo obtener la interfaz de usuario actualmente activa para el documento sin reemplazar la interfaz de usuario personalizada de nivel de aplicación. Para agregar elementos de interfaz de usuario personalizados es necesario escribir código adicional.

Sub CustomToolbars_Example() 
 
 Dim vsoUIObject As Visio.UIObject 
 
 'Check whether there are custom toolbars bound to the document. 
 If ThisDocument.CustomToolbars Is Nothing Then 
 
 'If not, check whether there are custom toolbars bound to the application. 
 If Visio.Application.CustomToolbars Is Nothing Then 
 
 'If not, use the Visio built-in toolbars. 
 Set vsoUIObject = Visio.Application.BuiltInToolbars(0) 
 MsgBox "Using Built-In Toolbars", 0 
 
 Else 
 
 'If there are existing Visio application-level custom toolbars, use them. 
 Set vsoUIObject = Visio.Application.CustomToolbars 
 MsgBox "Using Custom Toolbars", 0 
 
 End If 
 
 Else 
 
 'Use the existing custom toolbars. 
 Set vsoUIObject = ThisDocument.CustomToolbars 
 MsgBox "Using Custom Toolbars", 0 
 
 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.