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),点击运行就完成了。