Shape.SizeWidth

Property SizeWidth As Double

Member of Shape

The SizeWidth property returns or sets the horizontal size of a shape. Changing this property stretches the shape to accommodate the specified size.

See also the GetSize, SetSize, and GetBoundingBox methods.

The following code example creates a rectangle around each shape on a page:

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