Curve 属性 (Visio)Curve.End property (Visio)

返回 Curve 对象的终点。Returns the endpoint of a Curve object. 此为只读属性。Read-only.



_表达式_一个代表**Curve** 对象的变量。expression A variable that represents a Curve object.

返回值Return value



Curve 对象的 End 属性返回曲线的终点。The End property of a Curve object returns the endpoint of a curve. Curve 对象按照其参数域描述自身,该域为范围 [Start(),End()],其中 End() 生成曲线的终点。A Curve object describes itself in terms of its parameter domain, which is the range [Start(),End()] where End() produces the curve's endpoint.


以下 Microsoft Visual Basic for Applications (VBA) 宏显示如何使用 End 属性来确定曲线的端点。This Microsoft Visual Basic for Applications (VBA) macro shows how to use the End property to determine the endpoint of a curve.

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

支持和反馈Support and feedback

有关于 Office VBA 或本文档的疑问或反馈?Have questions or feedback about Office VBA or this documentation? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.