如何在word中批量处理图片
发布网友
发布时间：2022-04-20 21:06
共1个回答
热心网友
时间：2022-05-23 08:26
首先利用宏处理图片大小，删除原先代码，复制粘贴如下代码：
Sub
photos()
'设置图片大小
Dim
n
'图片个数
On
Error
Resume
Next
'忽略错误
For
n
=
1
To
ActiveDocument.InlineShapes.Count
'InlineShapes
类型
图片
ActiveDocument.InlineShapes(n).Height
=
18
*
28.35
'设置图片高度为
10cm
（1cm等于28.35px）
ActiveDocument.InlineShapes(n).Width
=
13.5
*
28.35
'设置图片宽度8cm
Next
n
End
Sub
然后点击一张图片，选择格式相似的对象，这时选中了所有图片，再选择一个没有缩进的样式即可。这时图片的位置就一样了。
