Question

word 里批量修改图片大小。

我每天要做表格，每个表格要插入五张照片。固定大小，一张张修改很麻烦，能有快捷的方法嘛？我想把图片大小设置成5.48cm

Answer 1

Word如何批量调整图片大小？

Answer 2

1、打开word，工具－宏－宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！
2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存
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
这样就可以了！

Answer 3

按alt+F11。然后在project右键插入模块，然后粘贴
Sub Macro()
Mywidth = 4.13
Myheigth = 5.69
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub
再按F5，就行了。
【Mywidth = 4.13
Myheigth = 5.69这里的数字你自己改大小】

追问

我想设定的高度是5.48cm

追答

Sub Macro()
Mywidth = 4.13
Myheigth = 5.48
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub

Answer 4

把设置图片大小的操作 录为一个宏， 然后每次按快捷键就好了

Answer 5

Word如何批量调整图片的大小？这个视频告诉你！