Compartilhar via

Propriedade Curve.Start (Visio)

  • Artigo

Retorna o início de um domínio de parâmetro do objeto Curve. Somente leitura.

Sintaxe

expressão. Começar

Expressão Uma variável que representa um objeto Curve .

Valor de retorno

Duplo

Comentários

A propriedade Start de um objeto Curve retorna o valor do ponto de partida no domínio do parâmetro da curva. Um objeto Curve se descreve em termos de seu domínio de parâmetro, que é o intervalo [Start(),End()], onde Start() produz o ponto de partida da curva. Observe que o valor Start não é um par de coordenadas. Em vez disso, ele representa a posição relativa ao longo da curva do ponto de partida. Para uma linha, por exemplo, o valor de Start normalmente é 0, o valor de End é 1 e você pode usar o método Point do objeto Curve para determinar as coordenadas de qualquer ponto ao longo da curva determinando o local relativo do ponto entre os pontos iniciais e finais.

Exemplo

Esta macro do Microsoft Visual Basic for Applications (VBA) mostra como usar a propriedade Iniciar para exibir o valor do ponto de partida de uma curva. Ela usa o método Point para encontrar o ponto médio da 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.