word2007批量图片大小

⑴ 怎么统一设置word2007中图片格式，需要大小相同

Sub 统一图片尺寸()

Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height = CentimetersToPoints(2) '高度4cm
ActiveDocument.InlineShapes(n).Width = CentimetersToPoints(2) '宽度3cm
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
ActiveDocument.Shapes(n).Height = CentimetersToPoints(2) '高度4cm
ActiveDocument.Shapes(n).Width = CentimetersToPoints(2) '宽度3cm
Next n

End Sub

上面是word中统一图片大小的宏代码，希望你能用得上。
代码中的图片尺寸大小可以根据需要进行修改。