Object Model Reference : Classes : S : ShapeRange : Methods : 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 a shape range, treating the range as a single object. The range is distorted relative to a point that is specified as the center of distortion.
The following VBA example stretches all of 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 |
Copyright 2013 Corel Corporation. All rights reserved.