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