word快速统一多张图片大小

打开VBA编辑器（也可直接按【Alt+F11】或【Alt+F11+Fn】快捷键），新建模块，然后将下面的代码复制粘贴到窗口中。

Sub FormatPics()

Dim Shap As InlineShape

For Each Shap In ActiveDocument.InlineShapes

If Shap.Type = wdInlineShapePicture Then

Shap.LockAspectRatio = msoFalse '不锁定纵横比

Shap.Width = CentimetersToPoints(10) '宽10CM

Shap.Height = CentimetersToPoints(7) '高7CM

End If

Next

End Sub

然后保存【CTRL+S】宏，关闭窗口。选中所需图片再运行宏即可批量调整图片大小