批量更改word图片大小的方法
- 2023-05-29
- 来源/作者： Wps Office教程网/ 菜鸟图库
- 109 次浏览
工作中，我们不时会需要将大量图片插入word，并对其设置统一的尺寸大小。那么下面就由小编给大家分享下批量更改word图片大小的技巧，希望能帮助到您。
批量更改word图片大小的步骤
步骤一：弹出宏创建窗口
批量更改word图片大小的步骤图1
步骤二：在宏名栏里任意输入一个宏的名字，本例中我们使用“setpicsize”
步骤三：点击创建
批量更改word图片大小的步骤图2
步骤四：弹出“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
批量更改word图片大小的步骤图3
步骤五：点击“Microsoft Visual Basic”窗口工具栏里的“运行”按钮(类似播放器里的播放按钮)或者按键盘“F5”键
批量更改word图片大小的步骤图4
步骤六：待标题栏上方的[正在运行]消失后，点击右上角小叉关闭“Microsoft Visual Basic”窗口。
批量更改word图片大小的步骤图5
看了“如何批量更改word的图片大小”此文的人还看了：
1.word如何批量导入、修改图片尺寸和压缩图片
2.如何批量调整word的图片大小
3.word中如何将图片统一设置大小
4.word中怎样任意调整图片大小
5.word怎么改变图片大小而且不变形
