Word 批量调整图片大小、纵横比的宏

Word 批量调整图片大小、锁定纵横比、解除纵横比宏宏文件中图片统一大小调整为5.55cm*7.4cm，大家可以根据自己的需要调整红色字部分。Sub 图片统一大小() '设置图片大小Dim n '图片

Word 批量调整图片大小、锁定纵横比、解除纵横比宏 5.55cm*7.4cm 宏文件中图片统一大小调整为，大家可以根据自己的需要调整红色字部分。 Sub () ' 图片统一大小设置图片大小 Dim n' 图片个数 On Error Resume Next ' 忽略错误 For n= 1To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片 ActiveDocument.InlineShapes(n).LockAspectRatio =msoFalse ' 解除纵横比锁定 ActiveDocument.InlineShapes(n).Height =* 28.35 ' 5.555.55cm 设置图片高度为 1cm28.35px （等于） ActiveDocument.InlineShapes(n).Width =* 28.35 ' 7.47.4cm 设置图片宽度 Next n End Sub