word中批量修改图片大小的方法

如果在word中插入很多比较大的图片，最后会导致整个文件很大，使用起来很不方便，那么有没有什么办法可以在word中批量处理图片的大小呢？下面一起来看看。

首选我们打开word文档，点击“文件->选项-> 自定义功能区 -> 在右侧选中【开发工具】 ”启用开发工具功能，如下图所示：

此时返回word可以看到菜单栏有个开发工具按钮，点击后再点击左侧的宏按钮，如下图所示：

在弹出的对话框中，我们创建一个宏名，比如批量调整图片大小 ，然后点击创建按钮，如下图所示：

接下来把以下代码复制进去：

Sub setpicsize() '批量调整图片大小

Dim n '图片个数

On Error Resume Next '忽略错误

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

ActiveDocument.InlineShapes(n).Height = 5.5 * 28.35 '设置图片高度为 5.5cm （1cm等于28.35px）

ActiveDocument.InlineShapes(n).Width = 7.33 * 28.35 '设置图片宽度 7.33cm

Next n

End Sub

如下图所示：

这个时候重新回到word操作界面，再点击宏，点击运行，我们可以看到所有图片已经修改大小了，如下图所示：

(资源库 www.zyku.net)