Word中批量设置全部图片大小

作者:疯疯  发表在www.ssbbcc.com  于2009年11月03日

要弄移动标书时,需把大量的图片插入到office WORD中指定表格内,由于图片大小不同,一张一张调整很慢,查询了下,有以下这个方法可以快速批量改变图片大小。

版本要求是word2003等:
一,在word中按alt+f11组合键,进入VBA模式
二,在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块
三,把下面代码复制,粘贴进去.
四,更改数值, 改一下宽度和高度数值(10),点运行(类似播放按钮.)或f5,即可设置文档中全部图片

Sub Macro()
Mywidth=10 ’10为图片宽度(厘米)
Myheigth=10 ’10为图片高度(厘米)
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub

分类: 数码、网络、网站

相关标签: , , , , , , , , ,

原创文章如转载,请注明:转载自 我们都很疯 [http://www.ssbbcc.com]

感谢你发表评论 www.ssbbcc.com 鼓励全人类学习象形字



谷哥赞助

老年历

免责声明

本站资讯大多来源于互联网,如涉及您的版权请留言或者邮件root#ssbbcc.com告知。私人文章请务必要登陆阅读。
拒绝任何人以任何形式在本站发表与中华人民共和国法律相抵触的言论!
违法信息举报请QQ676212374或者邮件root#ssbbcc.com联系