Shape.GetSize

Sub GetSize(Width As Double, Height As Double)

Member of Shape

The GetSize method returns the horizontal and vertical size of the shape.

See also the SizeWidth and SizeHeight properties of the Shape object.

The following code example returns the width and height of each shape on the active page, and it creates a rectangle with the same dimensions:

Sub Test() 
 Dim s As Shape 
 Dim x As Double, y As Double 
 ActiveDocument.ReferencePoint = cdrBottomLeft 
 For Each s In ActivePage.Shapes 
  s.GetSize x, y 
  ActiveLayer.CreateRectangle2 0, 0, x, y 
 Next s 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.