Paths Property [Visio 2003 SDK Documentation]

Returns a Paths collection that reports the coordinates of a shape's paths in the coordinate system of the shape's parent.

objRet = object**.Paths**

objRet     A Paths object that represents the shape's strokes.

object     Required. An expression that returns a Shape object.

Version added

5.0

Example

This Microsoft Visual Basic for Applications (VBA) macro places a shape on the page, retrieves its Paths collection, and then uses the Points property of the Path object to return an array of points that defines a polyline approximating the Path object.

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

Applies to | Shape object

See Also | Paths collection | PathsLocal property