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