关于调整图片大小的问题

为调整文档中图片尺寸，写了如下代码，但运行后发现，因各个图片原始比例不同，所以调整后导致有的图片变形，不知能否只设定图片宽度，而将高度按原始比例绽放，请各位高手指导。
Sub 调整图片大小()
Dim i%
For i = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).Width = 400
ActiveDocument.InlineShapes(i).ScaleHeight = 240
Next i
End Sub

用 .LockAspectRatio = msoTrue 似乎没有作用，不知何故？
可以通过计算倍数来达到近似同步缩放：
Sub 调整图片大小()
  Dim iShape As InlineShape, WidthNum As Long
  For Each iShape In ActiveDocument.InlineShapes
    With iShape
      WidthNum = .Width
      .Width = 400
      .Height = (400 / WidthNum) * .Height
    End With
  Next
End Sub

谢谢kqbt兄的分享，收藏学习！

多谢指导。看来我要学习的太多了。