ShapeRange.StretchEx

Sub StretchEx(CenterX As Double, CenterY As Double, StretchX As Double, [StretchY As Double], [StretchCharactersSize As Boolean = False])

Member of ShapeRange

The StretchEx method stretches the shapes in the range, treating the group of shapes as a single object. The shape range is distorted relative to a point that is specified as the center of distortion.


Parameters	Description
CenterX	Specifies the x-coordinate of the center of distortion
CenterY	Specifies the y-coordinate of the center of distortion
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 stretches all of the shapes on the page by 200%, using the center of the page as the center of the distortion:

Sub Test() 
 ActiveDocument.ReferencePoint = cdrBottomLeft 
 With ActivePage 
  .Shapes.All.StretchEx .CenterX, .CenterY, 2 
 End With 
End Sub