NodeRange.Stretch

Sub Stretch([RatioX As Single = 1], [RatioY As Single = 1], [UseAnchorPoint As Boolean = False], [StretchAnchorX As Double], [StretchAnchorY As Double])

Member of NodeRange

The Stretch property stretches the nodes in a node range as if the node range is a separate shape object.


Parameters	Description
RatioX	Specifies the width in the aspect ratio used when stretching objects. The aspect ratio is the ratio of the width of an image to its height (expressed mathematically as x:y). The width is expressed as a multiple of the current width. This parameter is optional, and its default value is 1.
RatioY	Specifies the height in the aspect ratio used when stretching objects. The height is expressed as a multiple of the current height. This parameter is optional, and its default value is 1.
UseAnchorPoint	Specifies whether to use an anchor point This parameter is optional, and its default value is False.
StretchAnchorX	Specifies the x-coordinate of the anchor point when stretching the node range. The anchor point is the point that remains stationary when you stretch, scale, mirror, or skew an object. This value is measured in document units. This parameter is optional, and its default value is 0.
StretchAnchorY	Specifies the y-coordinate of the anchor point when stretching the node range. This value is measured in document units. This parameter is optional, and its default value is 0.

The following code example stretches the node range in the active shape with ratio values of 1, no reference point, and an anchor point of (0, 0):

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