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

•Word宏：Word中的图片批量统一大

小及同比例缩放（图）

有些时候，我们用Word来做一些图文混排的文档，需要正规的样式，例如图片大小一致。下面的方法就是告诉我们如何来实现很多的图片统一大小。

实现代码：

Sub setpicsize() '设置图片大小

Dim n '图片个数

On Error Resume Next'忽略错误

For n = 1To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片

ActiveDocument.InlineShapes(n).Height = 400'设置图片高度

为400px

ActiveDocument.InlineShapes(n).Width = 300'设置图片宽

度300px

Next n

For n = 1To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400'设置图片高度为400px ActiveDocument.Shapes(n).Width = 300'设置图片宽度300px

Next n

End Sub

使用方法，把代码复制到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 = 1To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片

ActiveDocument.InlineShapes(n).Height = 400'设置图片高度

为400px

ActiveDocument.InlineShapes(n).Width = 300'设置图片宽

度300px

Next n

For n = 1To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400'设置图片高度为400px ActiveDocument.Shapes(n).Width = 300'设置图片宽度300px

Next n

End Sub

（注：文档可能无法思考全面，请浏览后下载，供参考。可复制、编制，期待你的好评与关注！）