批量更改word图片大小的方法

　　工作中，我们不时会需要将大量图片插入word，并对其设置统一的尺寸大小。那么下面就由学习啦小编给大家分享下批量更改word图片大小的技巧，希望能帮助到您。

　　批量更改word图片大小的步骤

　　步骤一：弹出宏创建窗口

　　步骤二：在宏名栏里任意输入一个宏的名字，本例中我们使用“setpicsize”

　　步骤三：点击创建

　　步骤四：弹出“Microsoft Visual Basic”窗口，复制下面的代码到代码窗口里替换掉原有内容：

　　Sub setpicsize() '设置图片大小

　　Dim n '图片个数

　　On Error Resume Next '忽略错误

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

　　ActiveDocument.InlineShapes(n).Height = 5 * 28.35 '设置图片高度为 5cm (1cm等于28.35px)

　　ActiveDocument.InlineShapes(n).Width = 4 * 28.35 '设置图片宽度 4cm

　　Next n

　　End Sub

　　'其中图片本例中图片尺寸为5cm和4cm

　　步骤五：点击“Microsoft Visual Basic”窗口工具栏里的“运行”按钮(类似播放器里的播放按钮)或者按键盘“F5”键

　　步骤六：待标题栏上方的[正在运行]消失后，点击右上角小叉关闭“Microsoft Visual Basic”窗口。