word批量修改图片大小

Sub xiugaitupiandaxiao()
'
' qingyuanluofeng
' 宏在 2015-8-27 由 qingyuanluofeng 创建
'
Dim n '图片个数
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse  '不锁定图片的纵横比
ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.InlineShapes(n).Width = 700 '设置图片宽度 300px
Next n
End Sub