SubPath.Next

Function Next() As SubPath

The Next method returns the next subpath of the curve.

The following code example connects all of the open subpaths to each other, thus forming one larger closed subpath:

Sub Test() 
 Dim crv As Curve 
 Dim spath As SubPath, spath1 As SubPath 
 Set crv = ActiveShape.Curve 
 Set spath = crv.Subpaths(1) 
 Do 
  If Not spath.Closed Then 
   Set spath1 = spath.Next 
   Do 
    If Not spath1.Closed Then Exit Do 
    Set spath1 = spath1.Next 
   Loop 
   spath.EndNode.ConnectWith spath1.StartNode 
  Else 
   Set spath = spath.Next 
   If spath.Index = 1 Then Exit Do 
  End If 
 Loop 
End Sub