Word宏：Word中的图片批量统一大小及同比例缩放图.docxVIP

. ? Word 宏： Word 中的图片批量统一大 小及同比例缩放（图） 有些时候，我们用 Word来做一些图文混排的文档，需要正规的样式，例如图片大小一致。下面的方法就是告诉我们如何来实现很多的图片统一大小。 实现代码： Sub setpicsize() 设置图片大小 Dim n 图片个数 On Error Resume Next 忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count InlineShapes 类 型图片 ActiveDocument.InlineShapes(n).Height = 400 设置图片高度 为 400px ActiveDocument.InlineShapes(n).Width = 300 设置图片宽 度 300px Next n For n = 1 To ActiveDocument.Shapes.Count Shapes 类型图片 ActiveDocument.Shapes(n).Height = 400 设置图片高度为 400px ActiveDocument.Shapes(n).Width = 300 设置图片宽度 300px Next n End Sub 使用方法，把代码复制到 Visual Biscal 编辑器中，再回到 Word界面，运行“宏”命令。 操作步骤如下： 打开要统一图片大小的 Word文档，点击“工具” - “宏” - “Visual Biscal 编辑器。 .. . 2）插入 normal 工程“模块”。 .. . 3）在“模块”中粘贴上面的代码。 .. . 4）保存，返回你要统一图片大小的 Word文档。运行“工具” - “宏” - 宏命令 。 看一下结果，是不是你想要的统一图片大小。 .. . 我用的两张图一个大一个小， 统一后 400*300 还是很大， 放在两个页面上， 上面 是 25%的缩略图，至此实现了统一大小的目标，如果你想要其它的大小，只需按代码里的说明更改一下长宽数值即可。 按比例缩放的方法和上面的是一样的，只是代码变化一下，过程就不熬述。 VBA 代码如下： Sub setpicsize() 设置图片大小 Dim n 图片个数 On Error Resume Next 忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count InlineShapes 类 型图片 ActiveDocument.InlineShapes(n).Height = 400 设置图片高度 为 400px ActiveDocument.InlineShapes(n).Width = 300 设置图片宽 度 300px Next n For n = 1 To ActiveDocument.Shapes.Count Shapes 类型图片 ActiveDocument.Shapes(n).Height = 400 设置图片高度为 400px ActiveDocument.Shapes(n).Width = 300 设置图片宽度 300px Next n End Sub ..