一位同事在做标书，有200余张图想要修改成同样大小，这工作量一下午就不用做别的了。但你知道吗？在office中，“但凡重复操作的动作都是可以自动化的”，几行VBA代码送给你，不需要VBA基础也能马上用起来。
如下图所示，图片太大，一个页面只能放下两张图。如果我们想多放几张，那就先试试统一修改所有图片的宽度为5CM吧。
一页放2张图
操作步骤
单击【开发工具】-【查看代码】-【插入】-【模块】
输入以下代码（不区分大小写），设置图片宽度为5，或者设置为您需要的任一尺寸。
说明：绿色字体是为了便于您的理解给的注释，不会被执行，前面都做了注释标记—单引号。图片纵横比有固定关系，所以只需用指定图片宽度或高度其中一项即可，不需要宽和高同时改。
单击【开发工具】-【宏】，选中宏名，单击【运行】即可。
结果呈现如下，图片齐刷刷被修改成统一大小的小图。
一页放15张图片
操作效果动图如下：
奉上代码，欢迎搬运：
Sub ImgSize()
For Each iShape In ActiveDocument.InlineShapes
iShape.Width = 28.345 * 5 '图片宽度 5cm
' iShape.Height = 28.345 * 7 '图片高度 7cm
Next
End Sub
是不是很简单，两百张图瞬间搞定，不说了，下班~
以上内容由东方瑞通彭巽言老师供稿，彭老师是办公自动化产品专家、微软认证讲师（MCT）、资深Excel VBA开发专家、微软Office技术专家俱乐部成员、微软网络工程师（MCSE）、微软数据库管理员（MCSA）。为西门子、爱立信、玛氏等企业连续多年讲授Office系列、VBA开发实战、Project项目管理等。
分享到:
閱讀更多 天津東方瑞通 的文章
