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