在word中如何批量修改图片的尺寸

要是在下面的Project新建模块就不能在其他Word中找到这个宏哈哈哈。新建的模块拖到Normal里就可以解决啦！

导入/导出宏文件 .bas

快捷键 alt Fn F11 打开宏代码

• 嵌入型图片

Sub 批量修改图片尺寸()

For Each 图片 In ActiveDocument.InlineShapes

（图片.LockAspectRatio=0 取消纵横比）

图片.Height = 5 * 72 / 2.54 （为5厘米，默认是磅）

图片.Width = 10 * 72 / 2.54

Next

End Sub

• 非嵌入型图片 代码删掉Inline

Sub 批量修改非嵌入图片尺寸()

For Each 图片 In ActiveDocument.Shapes

• 修改部分图片
  

  07:06

  

Sub 批量修改选中的图片尺寸()

For Each 图片 In selection.InlineShapes

• 通过对话框输入高度宽度

Sub 批量修改图片尺寸()

高度=InputBox("请输入高度")

宽度=InputBox("请输入宽度")

纵横比=InputBox("请输入是否锁定纵横比，1是锁定，0是解除")

For Each 图片 In ActiveDocument.InlineShapes

图片.LockAspectRatio=纵横比

图片.Height = 高度 * 72 / 2.54

图片.Width = 宽度 * 72 / 2.54

Next

End Sub

MsgBox(”来自一闪流溢的提示：所有图片的尺寸已经修改完成”)