批量修改图片大小.docxVIP

word批量修改图片大小——固定长宽篇

这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽！

1、打开word，工具－宏－宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！

2、宏名起好了，单击“创建”进入VisualBasic编辑器，输入如下代码并保存

Subsetpicsize()设置图片大小Dimn图片个数

OnErrorResumeNext忽略错误

Forn=1ToActiveDocument.InlineShapes.CountInlineShapes类型图片ActiveDocument.InlineShapes(n).Height=400设置图片高度为400pxActiveDocument.InlineShapes(n).Width=300设置图片宽度300px

Nextn

Forn=1ToActiveDocument.Shapes.CountShapes类型图片ActiveDocument.Shapes(n).Height=400设置图片高度为400pxActiveDocument.Shapes(n).Width=300设置图片宽度300pxNextn

EndSub

3、返回word，工具－宏－宏（或者直接按