“
3
高能法
讲完基础的调整图片大小的方法，接下来介绍一种更高能的方法，使用宏（VBA）来实现Word批量修改图片大小。
下面，一起来看看Word批量调整图片尺寸的操作技巧：
（1）首先插入图片或直接打开已有图片的Word图文文档。
（2）直接按【Alt F8】打开 “宏”对话框，在“宏名”文本框中输入宏名称"setpicsize"，然后点击“创建”按钮。
（3）打开VBA编辑器（也可直接按【Alt F11】快捷键），删除窗口中原有的通用代码，然后将下面的代码复制粘贴到窗口中。
Sub setpicsize() '设置图片尺寸
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片
ActiveDocument.InlineShapes(n).Height = 198.45 '设置图片高度为 7cm
ActiveDocument.InlineShapes(n).Width = 283.5 '设置图片宽度 10cm
Next n
End Sub
技巧提示：代码中图片的宽度（Height ）= 170.1 '设置图片高度为 6cm ）；高度（Width） = 283.5 '设置图片宽度 10cm，是如何计算得出的。
方法为：Word中的尺寸单位默认是cm（厘米），而1cm等于28.35px（像素），由于代码中换算设置的单位是px（像素）。所以就用尺寸高度或宽度值乘像素值。即为：7*28.35=198.45；宽度换算方法与此相同。
（4）然后按【Ctrl S 】键保存内容，关闭窗口。再次按【ALT F8】打开 “宏”对话框查看宏，点击“运行”按钮。此时，文档中的所有图片就会自动的变成设置好的尺寸大小了。
