第1个回答 2019-11-10
分析:由于word不能像excel一样多选图片,所以不能多选图片后统一缩放,所以考虑可以重复多次一样动作的宏功能:
打开视图-宏-输入一个名字-创建
2.输入以下代码,注意替换内有的内容和尺寸不是下面的5cm可以直接更改。
sub
formatpics()
dim
isha
as
inlineshape
for
each
isha
in
activedocument.inlineshapes
if
isha.type
=
wdinlineshapepicture
then
isha.lockaspectratio
=
msofalse
'不锁定纵横比
isha.width
=
centimeterstopoints(5)
'宽5cm
isha.height
=
centimeterstopoints(5)
'高5cm
end
if
next
end
sub
3.宏-运行,可以直接批量缩放图片尺寸,左边为最终效果图。