word使用宏定义来统一设置图片大小

1. 首先手动拖拽将图片调到需要的格式，点击图片在格式选项中查看图片的宽高

2. 视图中点击宏新建

3. 编辑框中输入以下代码并保存，由于我只需要统一宽度，所以将统一高度的代码注释

Sub 图片格式统一()
'
' 图片格式统一 宏
'
'
 
'Myheigth = 12
Mywidth =
On Error Resume Next '忽略错误
For Each iShape In ActiveDocument.InlineShapes
'iShape.Height = 28.345 * Myheigth '设置图片高度为任意cm
iShape.Width = 28.345 * Mywidth '设置图片宽度
Next
For Each Shape In ActiveDocument.Shapes
'Shape.Height = 28.345 * Myheigth '设置图片高度为任意cm
Shape.Width = 28.345 * Mywidth '设置图片宽度
Next
 
End Sub

4. 回到宏界面，运行，done。