word批量缩放图片问题

Sub setpicsize()
Dim j
For j = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(j).Height = 90  '
LockAspectRatio = msoTrue

Next j
End Sub
我用了这个，高度是锁定，但长度没有按比例。图片变形了。请高手指点。

这个在03里不行。用了10版的就可以。哈哈。算是解决了。不过不知是为什么会这样。