Sub Test() Dim s As Shape For Each s In ActivePage.Shapes If s.Type = cdrCurveShape Then s.Curve.Segments.All.SetType cdrLineSegment End If Next sEnd Sub