Curve.Point-Methode (Visio)

Artikel
04/07/2023

Gibt einen Punkt an einer Position entlang einer Kurve zurück.

Syntax

Ausdruck. Punkt (t, x, y)

Ausdruck Eine Variable, die ein Curve-Objekt darstellt.

Parameter

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.

Rückgabewert

Nichts

Bemerkungen

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.

Beispiel

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

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