使用word将图片变成统一大小
在word排版中,如果内容有多个图片,您想把所有图片变成统一大小,图片少你可以手拖拉,但是如果是几十张上百张,累死人。
根据作者多次辛苦的摸索和寻找,终于找到一个好方法,一劳永逸。就是使用word的宏。
步骤
- 01
准备图片,我就以5张图片为例吧。
- 02
打开word,导入图片。 插入-图片,选择图片插入,进入目录后,Ctrl+A即可选择全部。
- 03
按Alt+F8,进入宏编辑窗口。 首先输入宏名称,然后点击新建即可。
- 04
在代码窗口中输入如下代码: Dim iSha As InlineShapeFor Each iSha In ActiveDocument.InlineShapes If iSha.Type = wdInlineShapePicture Then iSha.LockAspectRatio = msoFalse '不锁定纵横比 iSha.Width = CentimetersToPoints(9#) '宽5CM iSha.Height = CentimetersToPoints(9.2) '高5CM End If Next
- 05
点击运行,如下图:
- 06
运行后,关闭宏编辑窗口,放心,关闭窗口后,宏还在,可以不保存。 结果如下:
赞 (0)