Sub Test() Dim s As Shape Dim n As Node Dim xc As Double, yc As Double Dim r As Double Dim dx As Double, dy As Double Const Amplitude As Double = 0.2 Set s = ActiveShape If s.Type = cdrCurveShape Then ActiveDocument.ReferencePoint = cdrCenter s.GetPosition xc, yc For Each n In s.Curve.Nodes dx = n.PositionX - xc dy = n.PositionY - yc r = Exp((Rnd() - 0.5) * Amplitude) n.SetPosition xc + dx * r, yc + dy * r Next n End IfEnd Sub