Método Curve.Point (Visio)
Retorna um ponto em uma posição ao longo de uma curva.
Sintaxe
expressão. Ponto (t, x, y)
Expressão Uma variável que representa um objeto Curve .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| T | Obrigatório | Double | O valor no domínio do parâmetro da curva a ser avaliado. |
| x | Obrigatório | Double | Retorna x valor da curva em t. |
| y | Obrigatório | Double | Retorna o valor y da curva em t. |
Valor de retorno
Nada
Comentários
Um objeto Curve é descrito em termos de seu domínio de parâmetro, que é o intervalo [Start(),End()]. O método Point de um objeto Curve retorna as coordenadas x,y na posição t, que é qualquer posição ao longo do caminho da curva. O método Point pode ser usado para extrapolar o caminho da curva fora de [Start(),End()].
Exemplo
Esta macro do Microsoft Visual Basic for Applications (VBA) desenha um círculo (um caso especial de uma elipse) na página ativa do documento. Em seguida, ele itera através da coleção Paths do círculo e cada objeto Path para exibir as coordenadas de vários pontos ao longo da curva. Como a forma desenhada é um círculo, ela é um objeto Curve que possui somente um caminho.
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
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.