宏批量修改word中的图片大小

编辑有大量图片的文档，一个一个手动调整图片格式，非常费力。

百度了下，发现有宏这个工具。视图选项卡--->宏---->查看宏，里面可以创建、编辑宏。

代码借鉴的百度知道https://zhidao.baidu.com/question/1994149649302970787.html

Sub setpicsize()

'设置图片大小
' 宏在 2008-3-31 由 hero_thm 录制
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes
ActiveDocument.InlineShapes(j).Height = 362 '设置高度12.77cm
ActiveDocument.InlineShapes(j).Width = 481.87 '设置宽度17cm
Next j
End Sub

 

然后运行宏就可以了，亲测非常有效，当图片成功调整的一刻，非常感动。高度可以用（362/12.77*你需要的高度）来调整