ShapeRange.ConvertOutlineToObject

Function ConvertOutlineToObject() As ShapeRange

The ConvertOutlineToObject method converts the outlines of each shape in the range to separate fillable objects.

The following code example converts the outline of each curve to a closed curve shape:

Sub Test() 
 Dim sr As ShapeRange 
 Dim n As Long 
 Set sr = ActivePage.FindShapes(Type:=cdrCurveShape) 
 For n = sr.Count To 1 Step -1 
  If sr(n).Outline.Type = cdrNoOutline Then sr.Remove n 
 Next n 
 sr.ConvertOutlineToObject 
End Sub