easthomeRT 发表于 2016-11-9 10:41:44

三行代码搞定Word中批量统一图片大小

有时Word中需要插入多张图片，但插入后的图片大小却各不相同。一张一张地选中，再去格式中修改，显然会耗费大量时间。如图，插入5张图片后，图片尺寸过大，一页只能放下一张图片。                              执行宏后，所有图片缩小为5cm宽度，一个页面可以放下5张图片了。 接下来介绍如何通过简单的VBA代码实现一键批量修改所有图片大小。第一步：单击【开发工具】→【查看代码】→【插入】→【模块】第二步：输入以下代码（不区分大小写） ※   代码含义提示n For Each iShape InActiveDocument.InlineShapes … Next
遍历循环Word中所有图形n iShape.Width = 28.345 * 5    或iShape.Height = 28.345 * 7
指定图片宽度为5cm 或 高度为7cm（28.345是单位换算），由于图片纵横比是固定的，所以只需用代码指定图片宽度或高度其中一项即可※   用户操作n 单击【开发工具】→【宏】→选中宏名为Macro→【执行】※   扩展有兴趣的同学可以试下在PPT或Excel中如何实现批量修改图片大小。 本文出自东方瑞通彭巽言老师，转载请注明！

Rockyw 发表于 2016-11-9 14:23:43

感谢楼主分享！

easthomeRT 发表于 2016-11-10 09:30:05

亲，更多干货分享，请关注我们的微信公众号：东方瑞通IT培训（easthome1998）
页: [1]
查看完整版本: 三行代码搞定Word中批量统一图片大小