Compartir a través de

Propiedad Curve.Start (Visio)

  • Artículo

Devuelve el punto inicial del dominio de parámetros de un objeto Curve. Solo lectura.

Sintaxis

expresión. Empezar

Expresión Variable que representa un objeto Curve .

Valor devuelto

Doble

Comentarios

La propiedad Start de un objeto Curve devuelve el valor del punto inicial en el dominio de parámetros de la curva. Un objeto Curve se describe a sí mismo en términos de su dominio de parámetros, que es el intervalo [Start(),End()], donde Start() determina el punto inicial de la curva. Tenga en cuenta que el valor de Start no es un par de coordenadas. Representa la posición relativa del punto inicial a lo largo del trazado de la curva. Para una línea, por ejemplo, el valor de Start es generalmente 0, el valor de End es 1 y, para determinar las coordenadas de cualquier punto a lo largo del trazado de la curva, puede utilizar el método Point del objeto Curve, que determina la posición relativa que ocupa dicho punto entre los puntos inicial y final.

Ejemplo:

Esta macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo usar la propiedad Start para mostrar el valor del punto inicial de una curva. Utiliza el método Point para determinar cuál es el punto medio de la curva.

 
Sub Start_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 dblX As Double 
 Dim dblY As Double 
 Dim intOuterLoopCounter As Integer 
 Dim intInnerLoopCounter As Integer 
 
 'Draw a shape and get its Paths collection. 
 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 
 
 'Find the midpoint of the curve. 
 vsoCurve.Point ((dblEndpoint - dblStartpoint) / 2), dblX, dblY 
 Debug.Print "Midpoint: x = " & dblx; ", y = " & dblY 
 
 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.