Word中批量修改图片大小

由于word不是专业的图片编辑工具,因此只能利用宏的强大功能来实现批量修改图片大小。

在word中按Alt+F8打开宏创建窗口,输入宏名之后(如resize_pics),点击“创建”按钮进入Visual Basic 编辑器窗口,将如下代码复制到Visual Basic 编辑器窗口的End Sub上面一行:

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

然后关掉VB编辑器窗口,在word中按Alt+F8重新打开宏窗口,选择刚才创建的宏,单击“运行”按钮即可批量修改word中的图片大小。

 » 本站地址:http://www.gomoth.com

标签: