The SizeWidth property returns or specifies the horizontal size of a shape. Changing this property stretches the shape to accommodate the specified size. See also the Shape.GetSize,Shape.SetSize, and Shape.GetBoundingBox methods.
Examples:
The following VBA 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