Compartilhar via

Propriedade Shape.Paths (Visio)

  • Artigo

Retorna uma coleção Paths que relata as coordenadas dos caminhos de uma forma no sistema de coordenadas do pai da forma. Somente leitura.

Sintaxe

expression. Paths

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

Valor de retorno

Caminhos

Exemplo

Essa macro do Microsoft Visual Basic for Applications (VBA) coloca uma forma na página, recupera sua coleção Paths e usa a propriedade Points do objeto Path para retornar uma série de pontos que define uma polilinha aproximando o objeto Path.

 
Public Sub Paths_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 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.