Sub SkewNode() Dim nr as NodeRange Set nr = ActiveShape.Curve.Nodes.All With nr .Stretch 1, 1, False, 0, 0 End WithEnd Sub