word 快速统一调整图片大小

1. 打开Word文档，按下Alt+F11打开VBA编辑器。
2. 在VBA编辑器中，插入一个新的模块。
3. 在新的模块中，输入以下代码:

Sub 批量设置图片大小()
    Dim MyWidth As Double
    Dim MyHeight As Double
    Dim iShape As InlineShape
    
    MyWidth = 12 '设置图片宽度为12厘米
    MyHeight = 18 '设置图片高度为18厘米
    
    For Each iShape In ActiveDocument.InlineShapes
        iShape.Width = 28.345 * MyWidth '将图片宽度设置为任意cm
        iShape.Height = 28.345 * MyHeight '将图片高度设置为任意cm
        iShape.LockAspectRatio = msoFalse '不锁定图片的纵横比
    Next iShape
End Sub

4、修改代码中的MyWidth和MyHeight的值，以设置你想要的图片大小。

5、按下F5运行宏，所有的图片将会被批量调整为统一的大小。