想把粘贴到word的图片一起调整到合适页面的大小，怎么能一起调？
发布网友
发布时间：2022-04-23 08:00
共1个回答
热心网友
时间：2023-10-08 17:09
sub
统一图片尺寸()
dim
n
'图片个数
on
error
resume
next
'忽略错误
for
n
=
1
toactivedocument.inlineshapes.count
'inlineshapes类型图片
activedocument.inlineshapes(n).height
=centimeterstopoints(4)
'高度4cm
activedocument.inlineshapes(n).width
=centimeterstopoints(3)
'宽度3cm
next
n
for
n
=
1
to
activedocument.shapes.count'shapes类型图片
activedocument.shapes(n).height
=centimeterstopoints(4)
'高度4cm
activedocument.shapes(n).width
=centimeterstopoints(3)
'宽度3cm
next
n
end
sub
上面是word中统一图片尺寸的宏代码，希望能帮到你。代码中的图片尺寸可以根据需要进行修改。
热心网友
时间：2023-10-08 17:09
sub
统一图片尺寸()
dim
n
'图片个数
on
error
resume
next
'忽略错误
for
n
=
1
toactivedocument.inlineshapes.count
'inlineshapes类型图片
activedocument.inlineshapes(n).height
=centimeterstopoints(4)
'高度4cm
activedocument.inlineshapes(n).width
=centimeterstopoints(3)
'宽度3cm
next
n
for
n
=
1
to
activedocument.shapes.count'shapes类型图片
activedocument.shapes(n).height
=centimeterstopoints(4)
'高度4cm
activedocument.shapes(n).width
=centimeterstopoints(3)
'宽度3cm
next
n
end
sub
上面是word中统一图片尺寸的宏代码，希望能帮到你。代码中的图片尺寸可以根据需要进行修改。
