Word便捷办公（1）：使用宏批量设置图片尺寸为统一值

需求场景：在工作学习中，经常遇到需要将一大堆图片转化成word格式文档，并且为了节约纸张，将多幅图片安排在同一个页面内

解决方案：

（1）新建word文档，插入->图片，选择多张要插入的图片

（2）使用快捷键alt + F8，打开宏窗口

（3）点击右侧的“创建”按钮，创建新的宏

（4）输入以下代码：

Sub setPictureToSameSize()

Dim n '获取图片个数

On Error Resume Next '忽略错误

For n = 1 To ActiveDocument.InLineShapes.Count

ActiveDocument.InLineShapes(n).Width = width * 23.85  '1 cm = 23.85 px

ActiveDocement.InLineShapes(n).Height = height * 23.85

Next n

End Sub

（5）运行该宏即可

注意事项：

（1）width和height为自己要设置的图片宽度和高度，自由指定

（2）代码缺陷，只能将一个文档中的所有图片设置为同一尺寸；且须手动修改宽高