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

1.打开WORD文档，插入多张图片。

2.在word中按alt+f11组合键，进入VBA模式。

3.在左边的工程资源管理器中找到你的word文档，在其上右键/添加/模块

4.复制以下代码

　　

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

 

5.点击运行。

搞定！