打开word2010,“视图”——“宏”——“查看宏”——创建一个新的宏并命名,例如宏1。
(1)将所有图片按比例缩放(例如比例为0.6倍)
粘贴如下代码:
sub
宏1()
'设置图片大小
dim
n
'图片个数
dim
picwidth
dim
picheight
on
error
resume
next
'忽略错误
for
n
=
1
to
activedocument.inlineshapes.count
'inlineshapes类型图片
picheight
=
activedocument.inlineshapes(n).height
picwidth
=
activedocument.inlineshapes(n).width
&n...