Sub Test() Dim nr As NodeRange Set nr = ActiveShape.Curve.Nodes.Range(Array(1, 3, 5)) nr.Move 0, 2End Sub