工作中，不时会需要将大量图片插入word，并对其设置统一的尺寸大小。下面学习一下批量修改图片尺寸的方法，让你告别重复工作
材料/工具
Word
方法
现在Word中有三张大小不一的图片
点击“视图”选项
找到“宏”
点击“查看宏”
输入宏的名字，新建宏，我这里名字为“压缩”
接着会弹出这个窗口
弹出“Microsoft Visual Basic”窗口，复制下面的代码到代码窗口里的End Sub哪一行前面：
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocumen360新知t.InlineShapes也区降难.Count 'InlineShapes 类型 图片
ActiveDocument.InlineShapes(n).Height = 5 * 28.35 '设置图片高度为 5cm （1cm等于28.35px）
ActiveDocument.InlineShapes(n).Width = 4 * 28.35 '设置图片宽度 4cm
Next n
'其中图片本例中图片尺寸为5cm和4cm
代码粘贴好后点击箭头指出的运行按钮，标题栏会出现运行中的提示，提示消失后关闭窗口
看，大小统一啦