vba调整word里面图片大小

 Sub tongyixiugaichicun()
 Dim oInlineShape As InlineShape
    For Each oInlineShape In ActiveDocument.InlineShapes
        With oInlineShape
            .LockAspectRatio = msoFalse    '不锁定纵横比
          ' .ScaleHeight = 10
          .Width = CentimetersToPoints(8)
          .Height = CentimetersToPoints(6)
         '  .ScaleWidth = 10
        End With
    Next
End Sub