Window.DockedStencils-Methode (Visio)

Artikel
04/07/2023

Gibt die Namen aller Schablonen zurück, die in einem Microsoft Visio-Zeichnungsfenster verankert sind.

Syntax

Ausdruck. DockedStencils( _NameArray()_ )

Ausdruck Eine Variable, die ein Window-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
NameArray()	Erforderlich	String	Ausgabeparameter. Ein Array, das die Namen von Schablonen erhält, die in einem Fenster verankert sind.

Rückgabewert

Nichts

Bemerkungen

Die DockedStencils-Methode gibt ein Zeichenfolgenarray zurück – die Namen der Schablonen, die in den verankerten Schablonenfensterausschnitten eines Fensters angezeigt werden. Wenn das Fenster ein Zeichnungsfenster ist, ist die Anzahl der angedockten Schablonenbereiche ( n ) gleich oder größer als 0 (null), und n ist null, wenn das Fenster kein Zeichnungsfenster ist.

Wenn die DockedStencils-Methode erfolgreich ausgeführt wird, gibt NameArray() ein eindimensionales Array von n Zeichenfolgen zurück, indiziert von Null (0) bis n - 1. Der NameArray()- Parameter ist ein out-Parameter, der von der DockedStencils-Methode zugeordnet wird, deren Besitzer an den Aufrufer zurückgegeben wird. Der Aufrufer sollte zum Schluss die SafeArrayDestroy-Prozedur für das zurückgegebene Array ausführen. Beachten Sie, dass die SafeArrayDestroy-Prozedur den Nebeneffekt hat, dass die Zeichenfolgen freigegeben werden, auf die von den Einträgen des Arrays verwiesen wird. Die DockedStencils-Methode erzeugt einen Fehler, falls NameArray() gleich NULL ist. (Microsoft Visual Basic und Visual Basic für Applikationen übernehmen das Löschen des Arrays für Sie.)

Wenn strStencilName die von NameArray(StencilName) zurückgegebene Zeichenfolge ist, wird Documents.Item ( strStencilName) erfolgreich ausgeführt und gibt ein Document-Objekt zurück, das die Schablone darstellt.

Beispiel

Das folgende Microsoft Visual Basic for Applications-Makro zeigt, wie die DockedStencils-Methode verwendet wird, um die Dokumentnamen aller im aktiven Fenster angedockten Schablonen abzurufen. Außerdem werden im Direktfenster der Name des aktiven Dokuments und die Unter- und Obergrenze des Arrays, das die Schablonennamen enthält, gedruckt. Anschließend werden die Schablonennamen und Pfade aufgelistet, auch im Direktfenster.

 
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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über