Word图片批量统一大小的详细具体图文操作方法
有些时候,我们用 Word 来做一些图文混排的文档,必须使用一些比较正规的格式和样式,例如使文档中的每一幅图片大小一致。下面我就给大家分享Word 中批量处理统一图片大小的方法。
操作方法
- 01
打开要统一图片大小的 Word 文档,点击“工具”-“宏”-“Visual Biscal 编辑器,如图所示 :
- 02
点击之后我们插入 normal 工程“模块”,如图所示:
- 03
在“模块”中粘贴下面的代码,使用方法:如图所示 把代码复制到 Visual Biscal 编辑器中,再回到 Word 界面,运行“宏”命令。 1 Sub setpicsize() '设置图片大小 2 Dim n '图片个数 3 On Error Resume Next '忽略错误 4 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片 5 ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px 6 ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px 7 Next n 8 For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片 9 ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px 10 ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px 11 Next n 12 End Sub
- 04
保存,返回你要统一图片大小的 Word 文档。运行“工具”-“宏”-"宏命令",如图所示:
- 05
之后我们看一下结果,是不是你想要的统一图片大小,如图所示:
- 06
我用的两张图一个大一个小,统一后 400*300 还是很大,放在两个页面上,上面是25%的缩略图,至此实现了统一大小的目标,如果你想要其它的大小,只需按代码里的说明更改一下长宽数值即可。按比例缩放的方法和上面的是一样的,只是代码变化一下,这个可以自行随意修改的。