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