word里如何批量处理图片的大小,不知道你就out啦.doc

PAGE/NUMPAGES

这两天在整文档,提交过来的文档里面有几百张图片，规格都不一样，堆在文档里面很难看.为美化文档，我决定将图片规范化,都设置成425x3２0像素大小。手工修改每张图片很费时间也费鼠标，借助woｒd的宏功能可以很好完成这一任务。

?????打开woｒd，按下Ａｌt＋F８，出现宏界面，为新建的宏取名为AdjustPicＷidthAndHeight

???点击编辑按钮，输入下面红色字体标出的内容

ＳuｂＡｄｊustPiｃWidthＡnｄHｅiｇhｔ()

ＡｄvertisｅPｕｂｌishAs宏

’将广告发布导出为PDF和ＸPS

＇Sｕbｓetpiｃsize()设置图片大小

Dimｎ图片个数

OnErｒorＲｅｓuｍｅNexｔ’忽略错误

Forn=１ToAcｔiveDocumｅnt。InlineShapｅs。Count＇IｎlｉnｅShapes类型图片

AｃtiveDocｕmｅnt.InlineShａpｅｓ(ｎ).ＬockＡspeｃtRatio=msoＦalse?不锁定图片的纵横比

?

AｃｔiｖeＤocument。ＩｎliｎeSｈaｐｅs（n)。Hｅight=３20’设置图片高度为32０pｘ

ActivｅDocｕｍent。ＩｎｌinｅShapeｓ(ｎ)．Wiｄtｈ=425??设置图片宽度４2５px

Nextn

Fｏrn=1TｏActｉvｅＤocumeｎt。Sｈapｅs.CounｔShａｐｅｓ类型图片

ActiｖeDｏcument。InlineShapｅｓ（n).ＬockAspectＲaｔｉｏ=ｍｓoFalse?’不锁定图片的纵横比

AcｔiｖeDocｕmｅnt.Shapeｓ(n）。Height=320设置图片高度为３20ｐｘ

ActiveDocument.Sｈapeｓ（n）。Widｔｈ=4２５＇设置图片宽度４2５pｘ

Nexｔｎ

EnｄSub

???返回woｒｄ，工具-宏－宏（或者直接按Alt+F8)，再次进入宏的界面,选择刚才编辑好的宏,并单击“运行按钮，就可以了！（图片多时，可能会花一些时间）

SubAdｊusｔＰiｃWidｔｈAndHｅighｔ(）

’SubFormａtＰiｃｓ（)

DimiShaAsＩｎlｉneＳｈape

ＦorＥａchｉShaIｎAｃｔiveDｏcuｍent。ＩnｌineShapeｓ

IｆｉSha。Tｙpｅ=ｗdIｎlinｅSｈapeＰｉｃtureThｅn

iShａ。ＬockＡspeｃtRａtio=mｓｏFalse不锁定纵横比

iSha.Wiｄｔｈ=CentｉｍetersToPoinｔｓ(6.４６)宽5CＭ

ｉＳha．Heigｈt=ＣeｎtimetersToPｏints（６.2８）高5ＣM

ＥnｄIｆ

Ｎeｘｔ

EndSｕb

文中不足之处，请您见谅！