Sub Test() Dim spath As SubPath Dim s As Shape Dim i As Long Set s = ActiveShape For i = 1 To s.Curve.Subpaths.Count Set spath = s.Curve.Subpaths(i) spath.Move Rnd() * 2 - 1, Rnd() * 2 - 1 Next iEnd Sub
Sub Test() Dim spath As SubPath For Each spath In ActiveShape.Curve.Subpaths spath.Move Rnd() * 2 - 1, Rnd() * 2 - 1 Next spathEnd Sub