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

《Word批量调整图片大小、纵横比宏.docx》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Word批量调整图片大小、锁定纵横比、解除纵横比宏宏文件中图片统一大小调整为5.55cm*7.4cm，大家可以根据自己的需要调整红色字部分。Sub图片统一大小()'设置图片大小Dimn'图片个数OnErrorResumeNext'忽略错误Forn=1ToActiveDocument.InlineShapes.Count'InlineShapes类型图片ActiveDocument.InlineShapes(n).LockAspectRatio=msoFalse'解除纵横比锁定ActiveDocument.InlineShape

2、s(n).Height=5.55*28.35'设置图片高度为5.55cm（1cm等于28.35px）ActiveDocument.InlineShapes(n).Width=7.4*28.35'设置图片宽度7.4cmNextnEndSubSub图片锁定纵横比()'锁定图片纵横比Dimn'图片个数OnErrorResumeNext'忽略错误Forn=1ToActiveDocument.InlineShapes.Count'InlineShapes类型图片ActiveDocument.InlineShapes(n).LockAsp

3、ectRatio=msotrue'打开纵横比锁定NextnEndSubSub图片解除纵横比()'解除图片纵横比Dimn'图片个数OnErrorResumeNext'忽略错误Forn=1ToActiveDocument.InlineShapes.Count'InlineShapes类型图片ActiveDocument.InlineShapes(n).LockAspectRatio=msoFalse'解除纵横比锁定NextnEndSub