Word如何用VBA快速统一修改图片大小
工具/原料
word2003
方法/步骤
1、首先看看现象，word里面的多张图片大小不一样。
2、点击工具-宏-Visualbasic编辑器。（也可以直接按Alt+F11）
3、打开Visualbasic编辑器，点击字斤谯噌最上面的Normal模板文件，再双击开thisDocument。
4、在右面的Normal-hisDocument代码窗口输入如下代码：Subsetp坡纠课柩icsize()'设置图渔镭沃昏片大小Dimn'图片个数OnErrorResumeNext'忽略错误Forn=1ToActiveDocument.InlineShapes.Count'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height=6*28.35'设置图片高度为6cm（1cm等于28.35px）ActiveDocument.InlineShapes(n).Width=6*28.35'设置图片宽度6cmNextnEndSub
5、最后点击左上角的保存按钮，然后点击返回word主界面。
6、点击工具-宏。（也可以直接按Alt+F8）直接打开运行宏窗口。
7、选setpicsize宏点击运行，瞬间会把整个word文档的所有图片修改为一样的统一大小。
8、最后看看统一大小以后的word文档效果。
