word 文档 一次性设置多张图片大小

泥泞有痕

1.打开WORD文档，插入多张图片。
2.在word中按alt+f11组合键，进入VBA模式。
3.在左边的工程资源管理器中找到你的word文档，在其上右键/添加/模块
4.复制以下代码



Sub Macro()
Mywidth = 20 '10为图片宽度（厘米）
Myheigth = 29 '10为图片高度（厘米）
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub



5.点击运行。
搞定