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

《如何在word批量修改图片大小的高级技巧.docx》由会员分享，可在线阅读，更多相关《如何在word批量修改图片大小的高级技巧.docx（5页珍藏版）》请在优知文库上搜索。

1、如何在word批量修改图片大小的高级技巧在使用Word编辑文档的时候，我们时常会插入一些图片素材，如果word中插入了几十甚至上百张图片，而且尺寸大小都不一样，为了美观统一。需要将所有的图片调整成相同的大小，你该不会一张张的调整吧？Word中还有更高能的技巧：那就是使用宏(VBA)来实现Word批量修改图片大小。下面，一起来看看Word批量调整图片尺寸的操作技巧：(1)首先插入图片或直接打开已有图片的Word图文文档。(2)直接按【Alt+F8】打开宏对话框，在宏名文本框中输入宏名称Setpicsize,然后点击创建按钮.宏？X(3)打开VBA编辑器(也可直接按【Alt+Fll】快捷键)，删除

2、窗口中原有的通用代码，然后将下面的代码复制粘贴到窗口中。SubSetpicsizeO设置图片尺寸Dimn图片个数OnErrorResumeNext忽略错误Forn=1ToActiveDocument.InlineShapes.CountInIineShapes类型图片ActiveDocument.InlineShapes(n).Height=198.45设置图片高度为7cmActiveDocument.InlineShapes(n).Width=283.5设置图片宽度IoCmNextnEndSub内MicrosoftVisualBaSiCforApplicationsNormal刈XB淬（D视

3、圉M嫡入0）格式9）谓话9）运行凶工具（D外接程嗯A）三（W）Wft（三）回臼，I - Normal 。，叱& h亨 甘行2.列1JHorlL ； 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. InlinSk8tft技巧提示：代码中图片的宽度（Height）=170.1设置图片高度为6cm）;高度（Width）=283.

4、5设置图片宽度IOCm,是如何计算得出的。方法为：Word中的尺寸单位默认是Cm（厘米），而：LCm等于28.35px（像素），由于代码中换算设置的单位是px（像素）.所以就用尺寸高度或宽度值乘像素值。即为：7*28.35=198.45;宽度换算方法与此相同。（4）然后按Ctrl+S键保存内容，关闭窗口。再次按【ALT+F8】打开宏对话框查看宏，点击运行按钮。此时，文档中的所有图片就会自动的变成设置好的尺寸大小了。g(M):宏的位置：所有的活动模板和文档说明（D：效果如图所示：但是，细心的小伙伴会发现，上方文档中图片的高度还是不一样，是怎么回事？这是由于勾选了锁定纵横比复选框（是Word为了调

5、整图片尺寸时，为保持图片不变形而默认勾选的选项）。布局位置文字环绕大小高度绝对值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然后保存宏，关闭窗口。再运行宏