用word宏命令批量修改图片尺寸大小（亲测好用！）

w

Sub setpicsize() '设置图片尺寸

Dim n '图片个数

On Error Resume Next '忽略错误

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

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

ActiveDocument.InlineShapes(n).Width = 19.33 * 28.35 '设置图片宽度 19.33cm
'1cm等于28.35px（像素）

Next n

End Sub

'方法为：Word中的尺寸单位默认是cm（厘米），而1cm等于28.35px（像素），由于代码中换算设置的单位是px（像素）。
'所以就用尺寸高度或宽度值乘像素值。即为：10厘米即为：10*28.35=198.45；宽度换算方法与此相同。