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

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?? [Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行] 使用方法和 [Word宏:Word中英文标点符号互换-VBA源码实现（图）] 中介绍的一样，把代码复制到Visual Biscal编辑器中，再回到Word界面，运行“宏”命令。 操作步骤如下： 1.打开要统一图片大小的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?? [Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]