假如你的Word需要插入很多图片(比如说100张),但插入的这些图片原始尺寸都是不一样大小的。
现在为了排版方便,你需要把这100张图片都修改成一样大小的尺寸。你会怎么做?
难道真的一张图片一张图片去调整?累死你!
其实用Word里面的宏功能,可以很轻松搞定这个问题,下面是详细教程:
1、打开Word
2、插入100张图片
3、打开Word里面宏的功能,如下图所示:
4、插入下面的宏代码
Sub setpicsize() '设置图片尺寸
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型
图片
ActiveDocument.InlineShapes(n).Height = 7.39 * 28.35 '设置图片高度为 5cm (1cm等于28.35px)
ActiveDocument.InlineShapes(n).Width = 9.86 * 28.35 '设置图片宽度 6.3cm
Next n
End Sub
运行宏代码,搞定!大家注意下,代码里面有个尺寸设置,大家修改成自己想要的尺寸就可以了。