最佳答案：点击w视图选项，找到“宏”，查看“宏”，输入宏的名字，新建宏，取个名字，弹出“Microsoft Visual Basic”窗口，复制下面的代码到代码窗口里的End Sub哪一行前面：Dim n '图
点击w视图选项，找到“宏”，查看“宏”，输入宏的名字，新建宏，取个名字，弹出“Microsoft Visual Basic”窗口，复制下面的代码到代码窗口里的End Sub哪一行前面：
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片
ActiveDocument.InlineShapes(n).Height = 5 * 28.35 '设置图片高度为 5cm （1cm等于28.35px）
ActiveDocument.InlineShapes(n).Width = 4 * 28.35 '设置图片宽度 4cm
Next n
'其中图片本例中图片尺寸为5cm和4cm
点击运行的小三角，图片就统一大小了。
