SubPath.Closed

Property Closed As Boolean

The Closed property returns or sets whether a curve’s subpath is opened or closed.

If the Closed property is True, the subpath is closed, and the path’s start and end points are connected, enclosing an area.

The following code example closes all subpaths in the selected curve:

Sub Test() 
 Dim spath As SubPath 
 For Each spath In ActiveShape.Curve.Subpaths 
  spath.Closed = True 
 Next spath 
End Sub