Sub Test() Dim nr as NodeRange Set nr = ActiveShape.Curve.Nodes.All With nr .Skew 25, 25, False, 0, 0 End WithEnd Sub