WORD编辑怎么统一图片大小批量设置图片尺寸大小
发布网友
发布时间：2022-04-27 07:37
共1个回答
热心网友
时间：2022-06-20 20:44
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
3、返回word，工具－宏－宏（或者直接按alt+f8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间)
