如何在word批量修改图片大小的高级技巧.docx

如何在word批量修改图片大小的高级技巧在使用Word编辑文档的时候，我们时常会插入一些图片素材，如果word中插入了几十甚至上百张图片，而且尺寸大小都不一样，为了美观统一。需要将所有的图片调整成相同的大小，你该不会一张张的调整吧？Word中还有更高能的技巧：那就是使用宏(VBA)来实现Word批量修改图片大小。下面，一起来看看Word批量调整图片尺寸的操作技巧：(1)首先插入图片或直接打开已有图片的Word图文文档。(2)直接按【Alt+F8】打开"宏"对话框，在"宏名"文本框中输入宏名称"Setpicsize,然后点击"创建"按钮.宏？X(3)打开VBA编辑器(也可直接按【Alt+Fll】快捷键)，删除窗口中原有的通用代码，然后将下面的代码复制粘贴到窗口中。SubSetpicsizeO'设置图片尺寸Dimn'图片个数OnErrorResumeNext'忽略错误Forn=1ToActiveDocument.InlineShapes.Count'InIineShapes类型图片ActiveDocument.InlineShapes(n).Height=198.45'设置图片高度为7cmActiveDocument.InlineShapes(n).Width=283.5'设置图片宽度IoCmNextnEndSub内MicrosoftVisualBaSiCforApplicationsNormal刈XB淬（D视圉M嫡入0）格式9）谓话9）运行凶工具（D外接程嗯A）三（W）Wft（三）回臼，I - Normal> 。，叱& h亨 甘行2.列1×JHorlL ； Microsoft V4 M执/ MeV)UCr03,Frjct (文档I)礴 Normal - NcvrMacros (fW)（通用）setpicsi relSUb stpictii()'设3583片尺寸Di* n '图片个效On Errar Kum IUxC '笠岭微层For n L To ActiYeDocur ent. Inlin«Sk<pes. Count ' IlineSK4pe3 巳3 rVActivDoeunt TnlinShp(). K*i (ht . 19. 45 总置S3片强度为7eActivelocuvcnt. InlineSk«p«s(n). Width 283.5 造置图片克限 10>8×tft技巧提示：代码中图片的宽度（Height）=170.1'设置图片高度为6cm）;高度（Width）=283.5'设置图片宽度IOCm,是如何计算得出的。方法为：Word中的尺寸单位默认是Cm（厘米），而：LCm等于28.35px（像素），由于代码中换算设置的单位是px（像素）.所以就用尺寸高度或宽度值乘像素值。即为：7*28.35=198.45;宽度换算方法与此相同。（4）然后按Ctrl+S键保存内容，关闭窗口。再次按【ALT+F8】打开"宏"对话框查看宏，点击"运行"按钮。此时，文档中的所有图片就会自动的变成设置好的尺寸大小了。g(M):宏的位置®：所有的活动模板和文档说明（D：效果如图所示：但是，细心的小伙伴会发现，上方文档中图片的高度还是不一样，是怎么回事？这是由于勾选了"锁定纵横比"复选框（是Word为了调整图片尺寸时，为保持图片不变形而默认勾选的选项）。布局位置文字环绕大小高度绝对值6.58厘米：相对值(L)相对于页面绝对值1。厘米：相对值相对于任)页面V融CD：O0÷高度（三）：107%:Sg(W):107%:团锁定纵横比但)0相对原始图片大小回原始尺寸高度：6.17厘米宽度：9.37厘米S(三)在图片上右击鼠标，选择"大小和位置"命令，在打开的对话框中取消勾选""锁定纵横比"复选框。然后运行宏，此时，所有图片的高度和宽度就统一T.又或是：打开VBA编辑器(也可直接按【Alt+Fll】快捷键)，新建模块，然后将下面的代码复制粘贴到窗口中。SubFormatPicsODimShapAsInIineShapeForEachShapInActiveDocumentJnIineShapesIfShap.Type=WdlnIineShapePictureThenShaplockAspectRatio=msoFalse'不锁定纵横比Shap.Width=CentimetersToPoints(IO)IOCMSh叩.Height=CemimeterSToPOintS(7)'高7CMEndIfNextEndSub然后保存宏，关闭窗口。再运行宏