Curve.End-Eigenschaft (Visio)
Gibt den Endpunkt eines Curve-Objekts zurück. Schreibgeschützt.
Ausdruck. Ende
Ausdruck Eine Variable, die ein Curve-Objekt darstellt.
Gleitkommawert mit doppelter Genauigkeit
Die End-Eigenschaft eines Curve-Objekts gibt den Endpunkt einer Kurve zurück. Ein Curve-Objekt beschreibt sich selbst im Hinblick auf seine Parameterdomäne, d. h. den Bereich [Start(),End()], in dem End() den Endpunkt der Kurve erzeugt.
Dieses VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie Sie mit der End-Eigenschaft den Endpunkt einer Kurve bestimmen.
Sub End_Example()
Dim vsoShape As Visio.Shape
Dim vsoPaths As Visio.Paths
Dim vsoPath As Visio.Path
Dim vsoCurve As Visio.Curve
Dim dblStartpoint As Double
Dim dblEndpoint 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 a Path object.
For intInnerLoopCounter = 1 To vsoPath.Count
Set vsoCurve = vsoPath(intInnerLoopCounter)
Debug.Print "Curve number " & intInnerLoopCounter
'Display the start point of the curve.
dblStartpoint = vsoCurve.Start
Debug.Print "Startpoint= " & dblStartpoint
'Display the endpoint of the curve.
dblEndpoint = vsoCurve.End
Debug.Print "Endpoint= " & dblEndpoint
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.