使用word将图片变成统一大小

在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）点击运行，如下图：

（06）运行后，关闭宏编辑窗口，放心，关闭窗口后，宏还在，可以不保存。结果如下：