Método Curve.Points (Visio)

Retorna uma matriz de pontos que define uma polilina que se aproxima de um objeto Path ou Curve dentro de uma determinada tolerância.

Sintaxe

expressão. Pontos (Tolerância, xyArray())

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

Parâmetros

Valor de retorno

Nada

Comentários

Use o método Points do objeto Path ou Curve para obter uma matriz de coordenadas x,y especificando pontos ao longo do caminho ou curva dentro de uma determinada tolerância. A tolerância e os valores x,y retornados são expressos em unidades de desenho internas (polegadas).

Se você usou a propriedade Paths de um objeto Shapes para obter o objeto Path ou Curve que está sendo consultado, as coordenadas são expressas no sistema de coordenadas do pai. Se você usou a propriedade PathsLocal de um objeto Shape para obter o objeto Path ou Curve, as coordenadas são expressas no sistema de coordenadas local.

Se Microsoft Visio não puder atingir a tolerância solicitada, o Visio aproximará os pontos da tolerância solicitada tanto quanto possível. De maneira geral, quanto menor a tolerância, mais pontos o Visio retornará. O Visio não aceita uma tolerância de zero (0).

A matriz retornada inclui os pontos inicial e final do caminho ou curva, mesmo que seja fechado.

Exemplo

Esta macro do Microsoft Visual Basic for Applications (VBA) coloca uma forma na página, recupera sua coleção Paths e usa o método Points do objeto Path para retornar uma matriz de pontos que define uma polilinha que aproxima o objeto Path.

 
Public Sub Points_Example() 
 
 Dim vsoShape As Visio.Shape 
 Dim adblXYPoints() As Double 
 Dim strPointsList As String 
 Dim intOuterLoopCounter As Integer 
 Dim intInnerLoopCounter As Integer 
 
 Set vsoShape = ActivePage.DrawOval(1, 1, 4, 4) 
 
 For intOuterLoopCounter = 1 To vsoShape.Paths.Count 
 
 vsoShape.Paths(intOuterLoopCounter).Points 0.1, adblXYPoints 
 For intInnerLoopCounter = LBound(adblXYPoints) To UBound(adblXYPoints) 
 strPointsList = strPointsList & adblXYPoints(intInnerLoopCounter) & Chr(10) 
 Next intInnerLoopCounter 
 
 Next intOuterLoopCounter 
 
 Debug.Print strPointsList 
 
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.