Freigeben über


Shape.Paths-Eigenschaft (Visio)

Gibt eine Paths-Auflistung zurück, die die Koordinaten vom Pfad eines Shape im Koordinatensystem des übergeordneten Objekts eines Shape meldet. Schreibgeschützt.

Syntax

Ausdruck. Paths

Ausdruck Eine Variable, die ein Shape-Objekt darstellt.

Rückgabewert

Paths

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic für Applikationen) platziert ein Shape auf das Zeichenblatt, ruft deren Paths-Auflistung ab, und verwendet dann die Points-Eigenschaft des Path-Objekts, um ein Array von Punkten zurückzugeben, die eine dem Path-Objekt annähernde Polylinie definiert.

 
Public Sub Paths_Example() 
 
 Dim vsoShape As Visio.Shape 
 Dim adblXYPoints() As Double 
 Dim strPointsList As String 
 Dim intOuterLoopCounter As Integer 
 Dim intInnerLoopCounter As Integer 
 
 Set vsoShape = ActivePage.DrawOval(1, 1, 4, 4) 
 
 For intOuterLoopCounter = 1 To vsoShape.Paths.Count 
 
 vsoShape.Paths(intOuterLoopCounter).Points 1#, adblXYPoints 
 For intInnerLoopCounter = LBound(adblXYPoints) To UBound(adblXYPoints) 
 strPointsList = strPointsList & adblXYPoints(intInnerLoopCounter) & Chr(10) 
 Next intInnerLoopCounter 
 
 Next intOuterLoopCounter 
 Debug.Print strPointsList 
 
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.