如何对word文件中的图片规格进行批量设置

在word文件中插入的图片很多时，为了保证大小规格相同，比如要将图片设置成585cm（高）*7.79cm（宽），可以运用宏设置，在宏文件中插入如下代码：

Sub photos585()

Dim n '图片个数

For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes jpeg

ActiveDocument.InlineShapes(n).Height = 5.85 * 28.35 '设置图片高度为 5.85cm （1cm等于28.35px）

ActiveDocument.InlineShapes(n).Width = 7.79 * 28.35 '设置图片宽度7.79cm

Next n

批量图片插入后，只需点开视图\宏\运行，所有图片即刻变成了统一规格。