分享个word中图片改大小的VBA代码

gz1898

移动的会审资料上打要插入大量的图片，调大小很麻烦，找了这段代码，希望能帮到有用的同学。

Sub 批量图片高9宽7() '设置图片大小

Dim n '图片个数

On Error Resume Next'忽略错误

For n = 1 ToActiveDocument.InlineShapes.Count 'InlineShapes类型图片

ActiveDocument.InlineShapes(n).LockAspectRatio= msoFalse '解除纵横比锁定

ActiveDocument.InlineShapes(n).Height= 9 * 28.35 '设置图片高度为5.55cm（1cm等于28.35px）

ActiveDocument.InlineShapes(n).Width= 7 * 28.35 '设置图片宽度7.4cm

Next n

End Sub