Curve.Point-Methode (Visio)
Gibt einen Punkt an einer Position entlang einer Kurve zurück.
Ausdruck. Punkt (t, x, y)
Ausdruck Eine Variable, die ein Curve-Objekt darstellt.
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
t | Erforderlich | Double | Der auszuwertende Wert in der Parameterdomäne für die Kurve. |
x | Erforderlich | Double | Gibt den x-Wert der Kurve bei t zurück. |
y | Erforderlich | Double | Gibt den y-Wert der Kurve bei t zurück. |
Nichts
Ein Curve-Objekt wird in Bezug auf seine Parameterdomäne beschrieben, die den Bereich [Start(),End()] darstellt. Die Point-Methode eines Curve-Objekts gibt die x,y-Koordinaten an Position t zurück, die eine beliebige Position entlang des Pfads der Kurve darstellt. Mit der Point-Methode kann der Pfad einer Kurve außerhalb von [Start(),End()] erschlossen werden.
Mit diesem VBA-Makro (Microsoft Visual Basic für Applikationen) wird auf dem aktiven Zeichenblatt des Dokuments ein Kreis (eine bestimmte Form eines Ovals) gezeichnet. Dann werden die Paths-Auflistung für den Kreis und die einzelnen Path-Objekte durchlaufen, damit die Koordinaten der verschiedenen Punkte entlang der Kurve angezeigt werden. Da es sich bei dem gezeichneten Shape um einen Kreis handelt, hat dieses Curve-Objekt nur einen einzigen Pfad.
Sub Point_Example()
Dim vsoShape As Visio.Shape
Dim vsoPaths As Visio.Paths
Dim vsoPath As Visio.Path
Dim vsoCurve As Visio.Curve
Dim dblEndpoint As Double
Dim dblXCoordinate As Double
Dim dblYCoordinate As Double
Dim intOuterLoopCounter As Integer
Dim intInnerLoopCounter As Integer
'Get the Paths collection for this shape.
Set vsoPaths = ActivePage.DrawOval(1, 1, 4, 4).Paths
'Iterate through the Path objects in the Paths collection.
For intOuterLoopCounter = 1 To vsoPaths.Count
Set vsoPath = vsoPaths.Item(intOuterLoopCounter)
Debug.Print "Path object " & intOuterLoopCounter
'Iterate through the curves in the Path object.
For intInnerLoopCounter = 1 To vsoPath.Count
Set vsoCurve = vsoPath(intInnerLoopCounter)
Debug.Print "Curve number " & intInnerLoopCounter
'Display the endpoint of the curve
dblEndpoint = vsoCurve.End
Debug.Print "Endpoint= " & dblEndpoint
'Use the Point method to determine the
'coordinates of an arbitrary point on the curve
vsoCurve.Point (dblEndpoint/2), dblXCoordinate, dblYCoordinate
Debug.Print "Point= " & dblXCoordinate, dblYCoordinate
Next intInnerLoopCounter
Debug.Print "This path has " & intInnerLoopCounter - 1 & " curve object(s)."
Next intOuterLoopCounter
Debug.Print "This shape has " & intOuterLoopCounter - 1 & " path object(s)."
End Sub
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.