word中图片如何统一大小.docxVIP

操作步骤如下: 1.打开要统一图片大小的 Word文档，点击“工具”-“宏” -“Visual Biscal 编辑器。 工具① 義格⑧ 窗口世） 耦助助 丸⑧I krcht注澤? 料写和语法①-… 信息检素（^）. *?Alt+单击 语弓心 宇数昴计?… 自动篇写摘要⑩.… 语音QP FT 」』il必4；述/ 1001 「如. duqiaiLSiheEhi 二^ 蚩 :三 加 ￡2 24 2E 23 30 32 34 3S i I I I I I： I I I 扶京工作区⑥? ? 修订 2） Ctrl+Shx ￡t+￡ 出義并舍并立魁? . 保护^（￡）.-- 联机血作? 信函与邮件也】 2）插入normal工程“模块” 宝 ?1）.，. 录制新宕⑧… 安全性⑨… a Vi siial Ba5ic ffli Oos oft W Alt+F 址）… Alt+Shi ft^F 3)在“模块”中粘贴下面的代码。 Sub batchResizeShape() Dim doc As Docume nt Dim i As In teger Set doc = ActiveDocume nt For i = 1 To doc」n li neShapes.Co unt doc .In li neShapes doc.Shapes(i).ScaleHeight 0.5, msoFalse, msoScaleFromMiddle doc.Sh apes(i).ScaleWidth 0.5, msoFalse, msoScaleFromMiddle doc.I nlin eSh apes(i).Height = 198.15 doc.I nli neShapes(i).Width = 264.45 Next i End Sub - -宏命令 4）保存，返回你要统一图片大小的 Word文档。运行“工具”-“宏 W 1? 1-L 件①… 絆也）…一 宏名 说明Q： 宏在2010-2-6由唱阳宝蔵岡创建 我用的两张图一个大一个小，统一后400*300还是很大，放在两个页面上，上面 是25%勺缩略图，至此实现了统一大小的目标，如果你想要其它的大小，只需按 代码里的说明更改一下长宽数值即可。