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