SubPath.EndNode

Property EndNode As Node

The EndNode property returns the first node of a subpath.

The EndNode property returns a read-only value.

The following code example connects all open subpaths to each other, forming a single and 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