Sub Test() Dim s As Shape Dim n As Node Dim dx As Double, dy As Double Const Amplitude As Double = 0.5 Set s = ActiveShape If s.Type = cdrCurveShape Then For Each n In s.Curve.Nodes dx = (Rnd() - 0.5) * Amplitude dy = (Rnd() - 0.5) * Amplitude n.Move dx, dy Next n End IfEnd Sub