Compartir a través de

Propiedad Shape.Paths (Visio)

  • Artículo

Devuelve una colección Paths que informa de las coordenadas de las rutas de una forma en el sistema de coordenadas de su forma principal. Solo lectura.

Sintaxis

expresión. Paths

Expresión Variable que representa un objeto Shape .

Valor devuelto

Paths

Ejemplo:

Esta macro de Microsoft Visual Basic para Aplicaciones (VBA) coloca una forma en la página, recupera su colección Paths y, a continuación, utiliza la propiedad Points del objeto Path para devolver una matriz de puntos que define una polilínea que se aproxima al 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.