工作中，不时会需要将大量图片来自插入word，并对其设置统一的尺寸大小。下360新知面学习一下批量修改图片尺寸的方法，让你告别和吸据时径响省模如解重复工作

材料/工具

Word

方法

  • 1
    现在Wor首占渐斯江被演d中有三张大小不务一的图片
  • 2
    点击“视图”选项
  • 章案边丝既鲁害自创3
    找到“宏”
  • 4
    点击“查看宏”
  • 5
    输入宏的名字，新建宏，我这里名字为“压缩”
  • 6
    接着会弹出这个窗口
  • 7
    弹出“Microsoft Visual Basic”窗口，复制下面的代孔白斗载茶日永画克码到代码窗口里的End Sub哪一行前面：
    Dim n '图片个数
    On Error Resume Next '忽略错误
    For n = 1 To ActiveDoc校ument.InlineShapes.Count 'InlineShapes 类型 图片
    ActiveDocument.InlineShapes(n).Height = 5 * 28.35 '设置图片高度为 5cm （1众田状脚片气花cm等于28.35px）
    Act岁阳手孩iveDocument.InlineShapes(n).Width = 4 * 28.35 '设置图片宽度 4cm
    Next n
    '其中图片本例中图片尺寸为日滑足剂例场广司度三务5cm和4cm
  • 8
    代码粘贴好后点击箭头指出的运行按钮，标题栏远线便排左复自会出现运行中的提示，提示消失后关闭窗口
  • 9
    看，大小统一啦
END