如何在word中批量编辑所有图片的大小？

第一步：
打开含有要编辑图片的word，快捷键：Alt+F8 调出宏窗口，输入宏名称：批量设置图片格式，点击创建。

第一步：
将下方的代码复制粘贴到编辑栏里，简单的编辑图片的宽和高，只要在 picheight = picwidth = 输入想要的数值，就可以了。
我一般是不锁定纵横比的，这样宽和高就可以自由调整。程序默认是锁定纵横比，如果要设为不锁定纵横比，则如代码中一样，输入Shape.LockAspectRatio = msoFalse

第三步：运行（点击绿色三角形），运行完可看编辑后的效果。
第四步：保存。

代码如下（如果要注释掉某内容，使其不产生作用，在内容前面输单引号）

Sub 批量设置图片格式()
' 批量设置图片格式 宏

'定义变量
Dim picwidth
Dim picheight

On Error Resume Next '忽略错误

'按照固定大小缩放
picheight = 10 '单位厘米，可修改
picwidth = 14.58 '单位厘米，可修改


''类型1：嵌入式图形 InlineShapes类型图片
For Each Shape In ActiveDocument.InlineShapes

'msoFalse是不锁定纵横比
Shape.LockAspectRatio = msoFalse

'按照固定大小缩放
Shape.Height = picheight * 28.35 '设置图片高度为 10cm （1cm等于28.35px）
Shape.Width = picwidth * 28.35 '设置图片宽度8cm

Next


''类型2：非嵌入式图形，Shapes类型图片
For Each Shape In ActiveDocument.Shapes

'msoFalse是不锁定纵横比
Shape.LockAspectRatio = msoFalse

'按照固定大小缩放
Shape.Height = picheight * 28.35 '设置图片高度为 10cm （1cm等于28.35px）
Shape.Width = picwidth * 28.35 '设置图片宽度8cm

Next

End Sub