打开文档后，按Alt+F11,在左边Porject下找到ThisDocument，右键插入模块，贴上下面的
Sub Macro()
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = iShape.Height * 0.25
iShape.Width = iShape.Width * 0.25
Next iShape
End Sub
按F5运行一次就可以了。
原文：http://www.cnblogs.com/qiangshu/p/4532683.html