jacky
问题补充说明：怎样才能把word中所有图片的大小调整为原来的50%？（是空间大小？
我知道通过宏可以批360问答量完成一个word中所有图片大小的修改，在次与大家共享，也希望可以给大家参考。
1、Alt+F8调出宏编辑窗口
2、点创建按钮，创建新宏，setpicsize,内容如下：
Subsetpicsize()
'设置图片大激绝小
'宏在2008止七-3-31由hero_thm录制
'
Dimj'计数图片个数
Forj=1ToActiveDocument.InlineSha送周刻随山误pes.Count'文件中图片总个数，图片类型为inlineshapes
ActiveDocum席ent.InlineShapes(j).Height=362'设置高度
ActiveDocument.InlineShapes(j).Width=481.87'设置宽度
Nextj
End片城都片低关静才进风Sub
3、保存退演求浓表反张出，点运行setpicsize宏，word中所有的图片统一调整为宽17cm，高12.77cm
Subsetpicsize()
'设置图片大小
'宏在2008-3-31由hero_处友thm录制
'
Dimj'计数图片个数
Forj=1ToActiveDocument.InlineShapes.Count'文件中图片总个数，图片类型为inlineshapes
IfActiveDo永cument.InlineShapes(j).Width>480Then
ActiveDocument.InlineShapes(j).Width=400'设置宽度
EndIf
Nextj
EndSub
