施老师：
在使用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 ，以此类推！
宁双学好网施老师（微信订阅号：myplwaai） ， 欢迎分享本文，转载请保留出处。想了解更多，请点击下方的“了解更多”。
