ShapeRange.Stretch

Sub Stretch(StretchX As Double, [StretchY As Double], [StretchCharactersSize As Boolean = False])

The Stretch method stretches the shapes in the range, treating the group of shapes as a single object. The shape range is distorted relative to the reference point specified by the Document.ReferencePoint property.


Parameters	Description
StretchX	Specifies the horizontal stretch factor
StretchY	Specifies the vertical stretch factor. If this value is not specified, it is assigned the same value as the StretchX parameter, resulting in a proportional stretch. This parameter is optional, and its default value is 0.
StretchCharactersSize	This parameter is optional, and its default value is False.

The following code example proportionally stretches all of the shapes on the page by 200%. The position of the ShapeRange is relative to the upper-right corner of the bounding box of the shape range.

Sub Test() 
 ActiveDocument.ReferencePoint = cdrTopRight 
 ActivePage.Shapes.All.Stretch 2 
End Sub