Try something along the lines of:
[vba]Sub pasteSPEC()
Const PercentSize As Integer = 60
Selection.PasteSpecial Link:=False, DataType:=wdPasteOLEObject, _
Placement:=wdFloatOverText, DisplayAsIcon:=False
With Selection.ShapeRange
.LockAspectRatio = True
.ScaleWidth PercentSize / 100, True
.ScaleHeight PercentSize / 100, False
End With
End Sub[/vba]