Word宏案例：Word批量设置图片大小，按比例缩放

在使用Word编辑文档的时候，我们时常会插入一些图片素材，但是插入的图片大小尺寸，长宽比例，都是比较麻烦的事情，我们需要一个一个手动去调整，那么，有没有什么好办法可以批量的修改成自己满意的尺寸呢？今天，易雪龙老师就来教一下大家，利用宏在不影响图片比例的情况下批量修改图片的尺寸。

批量处理图片尺寸

步骤一、首先，我们先插入一些图片，当然，也可以直接打开已有图片的文档。

步骤二、使用快捷键【ALT + F11】打开VB编辑器，然后【右键】点击【Normal】选择【插入】-【模块】。

步骤三、将下列代码复制进模块中，然后保存。

Sub setpicsize() '设置图片尺寸

Dim n '图片个数

On Error Resume Next '忽略错误

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

ActiveDocument.InlineShapes(n).Height = 283.5 '设置图片高度为 10cm

ActiveDocument.InlineShapes(n).Width = 396.9 '设置图片宽度 14cm

Next n

End Sub

步骤四、回到Word界面，进入【视图】-【宏】-【查看宏】-【运行】。此时，所有的图片就会自动的变成你设置好的尺寸了。

说明

1、缩放是按照比例来缩放的，不会影响图片，也就是说我们这个缩放只会针对宽度来缩放，高度是随着比例变化而变化的。也就是说高度你输入的参数是无效的。

2、Width = 图片宽度 ；Height = 图片高度 ，大家可以根据自己需求去设置宽度。

3、因Word中的尺寸单位是（厘米），这里我们设置的数据单位是PX（像素），在这里我们就要进行换算（1cm等于28.35px）。所以我这里给图片的宽度设置的14CM，也就是14*28.35=396.9，输入的数据就是 Width = 396.9 ，以此类推！

相关阅读

• Word在网上拷贝资料必备的几大知识点，你必须要掌握！