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文档效果。