Word中的图片批量统一大小及同比例缩放
Word宏:Word中的图片批量统一大小及同比例缩放(图)有些时候,我们用 Word来做一些图文混排的文档,需要正规的样式,例如图片大小一致。 下面的方法就是告诉我们如何来实现很多的图片统一大小。实现代码:Sub setpicsize()'设置图片大小 Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片 ActiveDocument.InlineShapes(n).Height =400 '设置图片高度为 400PxActiveDocument.InlineShapes(n).Width =300 '设置图片宽度 300PxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片 ActiveDocument.Shapes(n).Height =400 '设置图片高度为 400pxActiveDocument.Shapes(n).Width =300 '设置图片宽度 300pxNext n End SubCtrl+A全部选择 提示:你可先修改部分代码,再按运行 使用方法和Word宏:Word中英文标点符号互换-VBA源码实现(图)中介绍的一样,把 代码复制到Visual Biscal编辑器中,再回到 Word界面,运行 宏”命令。1.打开要统一图片大小的Word文档,点击 工具”-宏”-“Visual Biscal编辑器。工具中|茂格® 窗口如 帮助 Adobe PDTdJ Aenk式 任择©守拼写和语法一FTU 信息检嚎盘)- Alt+单击 诺言宁数既诃皿才与自动编写摘菱.语音俎)共享工作区区) 修订盘Cti-1+Shi -£1+1匕晒并合并文档包 保护文档11).联机协作5)100K操作步骤如下:. Ne wMciros. ut sh-e zRi =,三信函与邮件CE)定也b1*宏通).kit+录制新宏但r.安全性©9f* 1福税制抑载呢(!)-. 自动更正选项3 自定义© 选项电).力 ViRaisi e 褊捐:器Al +FMi cro so £t也).一 Al *+Shi £ t 共2)插入normal工程模块”。3)在 模块”中粘贴上面的代码。Hor*al -模/3【代码)回回国值用)*1 tIKMSub 色匕式工日门设置酊片大小则K黛沁数On Error Emm* Rest 忽略错逑For a = 1 To Acti y电Docs ent. Inline Shape 日 Ctrunt J Ini in«Shap«s Acti veDaenineiit. InlinoSliapeEHei (ht = *0 '设置图片高度为Acti veD&cumeiLt. InlirieSltape s (n) , WiltL - SOfl谈置图片宽度 300 Hext itf Qr n - 1 To Acti v«Coc-unent. Shapes. Coiuit ' S2i呷类型图片 Ati veDoc,umeft.t.fe), Meigh.t 二 400 1退置因计高良为 4D0pMActi vD?c-ument. Shapes (n), tidth. - 300,设置图片篇度 300pxIk泥七itEnd Subfe件件晅4)保存,返回你要统一图片大小的 Word文档。运行 工具“-宏"-"宏命令"。101?视图第;£_勤码)- se tpicsi£e'设置图片大小看一下结果,是不是你想要的统一图片大小。我用的两张图一个大一个小,统一后 400*300还是很大,放在两个页面上,上面是 25%的 缩略图,至此实现了统一大小的目标, 如果你想要其它的大小,只需按代码里的说明更改一下长宽数值即可。按比例缩放的方法和上面的是一样的,只是代码变化一下,过程就不熬述。VBA代码如下:Sub setpicsize()'设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片 ActiveDocument.InlineShapes(n).Height =400 '设置图片高度为 400pxActiveDocument.InlineShapes(n).Width =300 '设置图片宽度 300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片 ActiveDocument.Shapes(n).Height =400 '设置图片高度为 400pxActiveDocument.Shapes(n).Width =300 '设置图片宽度 300pxNext n End SubCtrl+A 全部选择 提示:你可先修改部分代码,再按运行