一键搞定WORD文档里的图片统一大小，用代码实行

一键搞定WORD文档里的图片统一大小，用代码实行

利用代码搞定WORD文档里的图片统一大小问题

打开新建 Microsoft Word 文档，

插入所有的图片

图片大小可以不一样。

现在利用代码统一大小

打开 工具-宏-运行宏

输入宏的名称。

比如：统一大小，

然后点击 创建

复制代码放进去

Sub setpicsize() '设置图片大小

Dim n '图片个数

On Error Resume Next '忽略错误

For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片

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

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

Next n

For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片

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

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

Next n

End Sub

代码是可以修改统一大小的。

我这里修改为130像素。

改后可以直接关了。

然后在word运行宏

工具-宏-运行宏

最后的效果