Word图片批量统一大小的详细具体图文操作方法

Word图片批量统一大小的详细具体图文操作方法

有些时候，我们用 Word 来做一些图文混排的文档，必须使用一些比较正规的格式和样式，例如使文档中的每一幅图片大小一致。下面我就给大家分享Word 中批量处理统一图片大小的方法。

打开要统一图片大小的 Word 文档，点击“工具”-“宏”-“Visual Biscal 编辑器，如图所示 ：

点击之后我们插入 normal 工程“模块”，如图所示：

在“模块”中粘贴下面的代码，使用方法：如图所示

把代码复制到 Visual Biscal 编辑器中，再回到 Word 界面，运行“宏”命令。

1Subsetpicsize()'设置图片大小

2Dimn'图片个数

3OnErrorResumeNext'忽略错误

4Forn=1ToActiveDocument.InlineShapes.Count'InlineShapes类型图片

5ActiveDocument.InlineShapes(n).Height=400'设置图片高度为400px

6ActiveDocument.InlineShapes(n).Width=300'设置图片宽度300px

7Nextn

8Forn=1ToActiveDocument.Shapes.Count'Shapes类型图片

9ActiveDocument.Shapes(n).Height=400'设置图片高度为400px

10ActiveDocument.Shapes(n).Width=300'设置图片宽度300px

11Nextn

12EndSub

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

之后我们看一下结果，是不是你想要的统一图片大小，如图所示：

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