会飞的鱼
将Word文档中的图片调整为统一大小
二,在左边的工程资源管理器中找到你的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
文章如无特别注明均为原创！
作者:
Eagle，
转载或复制请以
超链接形式 并注明出处 枫叶落。
原文地址《
将Word文档中的图片调整为统一大小》发布于2012-7-19
按照你说的这样做了 可是上面说缺少语句结束
VBA麻烦了点