Sub Test() Dim spath As SubPath For Each spath In ActiveShape.Curve.Subpaths spath.Move Rnd() * 2 - 1, Rnd() * 2 - 1 Next spathEnd Sub