Word文档如何批量修改图片大小

Word文档中，经常插入图片，在编辑过程中，为了让图片整齐排列，就需要统一图片的高度、宽度参数。如果一个文档的图片很多，图片的编辑排版就非常麻烦。应用Wor中的“宏”可以批量修改图片大小，这是解决图片排版的好方法。
点击Word中的“高级功能”，再点击“查看宏”进行创建即可。创建代码如下

Sub setpicsize() '设置图片大小
Dim n ’ 图片个数
On Error Resume Next ’ 忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片 ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片
ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px
Next n
End Sub
最后，选中刚刚创建的这个代码（setpicsize），点击运行就完成了。