Sub Test() Dim s As Shape Dim i As Long Set s = ActiveShape If s.Type <> cdrCurveShape Then s.ConvertToCurves s.Curve.Closed = False For i = s.Curve.Nodes.Count To 1 Step -1 s.Curve.Nodes(i).BreakApart Next i s.BreakApart End Sub