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

摘要：Word宏案例

批量处理图片尺寸

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

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

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

End Sub

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

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

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

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

相关阅读

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

文章优化