word2007 统一调整图片大小

在word中调整图片大小时，手动调整很难保证图片大小一致，使用宏可以自动处理图片，方法如下：

word2007 -> 视图 -> 宏 -> 查看宏 -> 创建

添加一条宏，如下：
Sub setpicsize()
Dim j
For j = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(j).Height = 620 '设置图片高度;1厘米约28.3像素
ActiveDocument.InlineShapes(j).Width = 420 '设置图片宽度
Next j
End Sub
显示器不一样，厘米与像素的换算也不一样，可以先运行宏，根据图片现在的大小与原来的大小比例，就可以计算出来。