首页 > Word专区 > Word技巧 >

如何利用三行代码搞定word中批量统一图片大小

Word技巧 2023-01-08

有时Word中需要插入多张图片,但插入后的图片大小却各不相同。一张一张地选中,再去格式中修改,显然会耗费大量时间。

如图,插入5张图片后,图片尺寸过大,一页只能放下一张图片。

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

执行宏后,所有图片缩小为5cm宽度,一个页面可以放下5张图片了。

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

接下来介绍如何通过简单的VBA代码实现一键批量修改所有图片大小。

第一步:单击【开发工具】→【查看代码】→【插入】→【模块】

第二步:输入以下代码(不区分大小写)

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

※代码含义提示

For Each iShape In ActiveDocument.InlineShapes … Next

遍历循环Word中所有图形

iShape.Width = 28.345 * 5 或 iShape.Height = 28.345 * 7

指定图片宽度为5cm 或 高度为7cm(28.345是单位换算),由于图片纵横比是固定的,所以只需用代码指定图片宽度或高度其中一项即可

※用户操作

单击【开发工具】→【宏】→选中宏名为Macro→【执行】


Copyright © 2016-2023 office学习教程网 office.tqzw.net.cn. All Rights Reserved.