批量调整WORD图片大小教程

1、批量调整WOR图片大小教程今天编辑一份 WOR文档，里面有很多图片，需要将里面的图片调整为固定大小，一般操作 方法是右键点击图片，然后再点击大小按钮-J3站站曰JI 1覽5猶入顿洋蚀.文字子察葩H打窃吸置圏用式弹出大小菜单，修改高度和宽度数值即可。但是文档里面图片太多，这样一张一张的修改，会让人崩溃。 下面介绍批量调整图片大小的方法。打开WOR文档后，按Alt+F8进入宏的界面，如下图所示,宏名(N):扃的位冒3 |所有的活动模檢和立档2说期Q)：输入一个宏的名字，这里宏名为调整图片大小，单击“创建”进入宏编辑器,A； Svrval _ Jeiriacros G代码）Snh调整圄片大少（凋整閔

2、片大小On Error Rsuni Nxt J 霧昭错淇Far it = 1 To ActivtD*cumt. ItJiniShir-es. Count InlinfeShap4s 英型E片 ActiveDunieMr IidintShapss He i ght = 400 片苍度肯 QUpxActivfrDfrcuritntWidth = 300 设置團片宽滾 30咗比ifeict nTcnr Ji - 1 Tq Acti veDpcuni! Sh电pg吕Sb呷陆 姿型閨片 ActivDocLFiiutr Shapas Ih）. JIight = 400 J iSHE片高度为电COjHtAc

3、tie-Docuieat- Shapes （p）. idth = 300，谡置團片宽.亶 3J0y3Nest nEn J. SuL进行宏编辑界面以后，将里面的代码全部删掉，然后复制如下代码并保存Sub调整图片大小()调整图片大小Dim n 图片个数On Error Resume Next 忽略错误For n = 1 To ActiveDocume nt.ln li neSh apes.Cou nt I nli neShapes类型图片ActiveDocume nt.ln li neShapes( n).Height = 400 设置图片高度为 400pxActiveDocume nt.l nl

4、i neShapes( n).Width = 300 设置图片宽度 300pxNext nFor n = 1 To ActiveDocume nt.Shapes.Cou nt Shapes类型图片ActiveDocume nt.Shapes( n).Height = 400 设置图片高度为 400pxActiveDocume nt.Shapes( n).Width = 300 设置图片宽度 300pxNext nEnd Sub宏保存以后，将宏编辑界面关闭。返回到WOR文档，再次按Alt+F8进入宏的界面，如下图所示宏志召(N):憲的位畳通;|所有的活动模檢和立档3说期Q)：取消|这次点击选中调

5、整图片大小的宏，然后点击运行，就开始自动调整图片大小了 如果文档里面图片较多，执行的时间会长一些。另外宏代码里面的高度和宽度 数值可以自己按需要进行修改。另外再送一个批量按比例缩放图片的宏，制作方法和上面的一样。Sub 图片按比例缩放 () 图片按比例缩放Dim n 图片个数Dim picwidthDim picheightOn Error Resume Next 忽略错误类型图片设置高度为 1.1 倍设置宽度为 1.1 倍For n = 1 To ActiveDocument.InlineShapes.Count InlineShapes picheight = ActiveDocument

6、.InlineShapes(n).Height picwidth = ActiveDocument.InlineShapes(n).Width ActiveDocument.InlineShapes(n).Height = picheight * 1.1 ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 Next n类型图片设置高度为 1.1 倍设置宽度为 1.1 倍For n = 1 To ActiveDocument.Shapes.Count Shapes picheight = ActiveDocument.Shapes(n).Height picwidth = ActiveDocument.Shapes(n).Width ActiveDocument