批量调整图片大小的宏 1、Alt+F8调出宏编辑窗口 2、输入宏名“XXX”后，点“创建”按钮在编辑器中输入以下红字内容： Sub setpicsize() ’设置图片大小 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片 ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '不锁定图片的纵横比 ActiveDocument.InlineShapes(n).Height = 82 '设置图片高度 ActiveDocument.InlineShapes(n).Width = 117 '设置图片宽度 Next n End Sub 3、保存退出，点运行“图片”宏，word中所有的图片统一调整为设定的高度及宽度。 本文来源：https://www.wddqw.com/doc/fbf6ed36ab114431b90d6c85ec3a87c241288a76.html