Método Path.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 Path .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Tolerance | Obrigatório | Double | Especifica quanto a matriz de pontos retornada deve se aproximar do caminho verdadeiro. |
| xyArray() | Obrigatório | Double | Parâmetro externo. Retorna uma matriz de valores x e y alternados que especificam pontos junto com o traço de um caminho ou curva. |
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.