Shape.Paths Property (Visio)
Returns a Paths collection that reports the coordinates of a shape's paths in the coordinate system of the shape's parent. Read-only.
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