word中图片如何统一大小.doc

.操作步骤如下：1.打开要统一图片大小的Word文档，点击“工具”-“宏”-“Visual Biscal编辑器。2）插入normal工程“模块”。3）在“模块”中粘贴下面的代码。Sub batchResizeShape() Dim doc As Document Dim i As Integer Set doc = ActiveDocument For i = 1 To doc.InlineShapes.Count doc.InlineShapes doc.Shapes(i).ScaleHeight 0.5, msoFalse, msoScaleFromMiddle doc.Shapes(i).ScaleWidth 0.5, msoFalse, msoScaleFromMiddle doc.InlineShapes(i).Height = 198.15 doc.InlineShapes(i).Width = 264.45 Nex