word中图片如何统一大小

1.打开要统一图片大小的Word文档，点击“工具”-“宏”-“Visual Biscal编辑器。

2）插入normal工程“模块”。 

3）在“模块”中粘贴下面的代码。

Sub batchResizeShape()

    Dim doc     As Document

  Set doc = ActiveDocument  

  For i = 1 To doc.InlineShapes.Count

  'doc.InlineShapes  

  Next i

End Sub

4）保存，返回你要统一图片大小的Word文档。运行“工具”-“宏”-"宏命令"。

看一下结果，是不是你想要的统一图片大小。

我用的两张图一个大一个小，统一后400*300还是很大，放在两个页面上，上面是25%的缩略图，至此实现了统一大小的目标，如果你想要其它的大小，只需按代码里的说明更改一下长宽数值即可。