word文档统一设置图片的尺寸

第一步：打开工具 → 宏 → 宏…

第一步

第二步：添加一个宏

Sub imgSize()
'
' imgSize 宏
'
'
Dim oInlineShape As InlineShape
For Each oInlineShape In ActiveDocument.InlineShapes
With oInlineShape
.LockAspectRatio = msoTrue    '锁定纵横比
.Height = MillimetersToPoints(87.4)    '以毫米为单位设置高度
.Width = MillimetersToPoints(49)    '以毫米为单位设置宽度
End With
Next

End Sub

第二步

第三部：运行宏

第三部：运行