ScaleWidth Property
Scales the width of the specified inline shape relative to its original size. Read/write Single.
expression.ScaleWidth
expression Required. An expression that returns an InlineShape object.
Example
This example sets the height and width of the first inline shape in the active document to 150 percent of the shape's original height and width.
With ActiveDocument.InlineShapes(1)
.ScaleHeight = 150
.ScaleWidth = 150
End With