ShapeRange.GetSize

Sub GetSize(Width As Double, Height As Double)

The GetSize method retrieves the size of the shapes in the range, treating the group of shapes as a single object.

See also the SizeWidth and SizeHeight properties, as well as the GetBoundingBox and SetBoundingBox methods.


Parameters	Description
Width	Returns the width of the shape range, in document units
Height	Returns the height of the shape range, in document units

The following code example stretches all of the shapes on the active layer so that the vertical size of each shape is one:

Sub Test() 
 Dim x As Double, y As Double 
 Dim sr As ShapeRange 
 Set sr = ActiveLayer.Shapes.All 
 If sr.Count > 0 Then 
  ActiveDocument.ReferencePoint = cdrCenter 
  sr.GetSize x, y 
  sr.SetSize x, 1 
 End If 
End Sub