| Name | Type | Description |
|---|---|---|
| DeltaX |
Double
|
Specifies the horizontal offset. |
| DeltaY |
Double
|
Specifies the vertical offset. |
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 If End Sub