Método Window.DockedStencils (Visio)

Devuelve los nombres de todas las galerías de símbolos acopladas en una ventana de dibujo de Microsoft Visio.

Sintaxis

expresión. DockedStencils( _NameArray()_ )

expresión Variable que representa un objeto Window .

Parameters

Valor devuelto

Nothing

Comentarios

El método DockedStencils devuelve una matriz de cadenas: los nombres de las galerías de símbolos que se muestran en los paneles de galerías de símbolos acopladas de una ventana. Si la ventana es una ventana de dibujo, el número de paneles de galería de símbolos acoplados ( n ) es igual o mayor que cero y n es cero cuando la ventana no es una ventana de dibujo.

Si el método DockedStencils se realiza correctamente, NameArray() devuelve una matriz unidimensional de n cadenas indexadas de cero (0) a n - 1. El parámetro NameArray() es un parámetro out asignado por el método DockedStencils , cuya propiedad se devuelve al llamador. El llamador deberá realizar finalmente el procedimiento SafeArrayDestroy en la matriz devuelta. Observe que el procedimiento SafeArrayDestroy tiene como efecto secundario la liberación de las cadenas a las que hacen referencia las entradas de la matriz. Se produce un error en el método DockedStencils si NameArray() es null. (Microsoft Visual Basic y Visual Basic para Aplicaciones se encargan de destruir la matriz por usted).

Si strStencilName es la cadena devuelta por NameArray(StencilName), Documents.Item ( strStencilName) se realiza correctamente y devuelve un objeto Document que representa la galería de símbolos.

Ejemplo

La siguiente macro de Microsoft Visual Basic para Aplicaciones muestra cómo utilizar el método DockedStencils para acoplar los nombres de documento de todas las galerías de símbolos en la ventana activa. También imprime, en la ventana Inmediato, el nombre del documento activo y los límites inferior y superior de la matriz que contiene los nombres de la galería de símbolos y, después, enumera los nombres de las galerías de símbolos y las rutas de acceso, también en la ventana Inmediato.

 
Public Sub DockedStencils_Example() 
 
 Dim astrStencilNames() As String 
 ActiveWindow.DockedStencils astrStencilNames 
 
 Dim intLowerBound As Integer 
 Dim intUpperBound As Integer 
 Dim intIndex As Integer 
 
 intLowerBound = LBound(astrStencilNames) 
 intUpperBound = UBound(astrStencilNames) 
 Debug.Print "Active document: " ActiveWindow.Document; " Lower bound:"; intLowerBound; " Upper Bound:"; intUpperBound 
 
 intIndex = intLowerBound 
 While intIndex <= intUpperBound 
 Debug.Print astrStencilNames(intIndex) 
 intIndex = intIndex + 1 
 Wend 
 
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.