在Word中调整所有图片的固定大小

在Office 2003中进行下面操作:

 

一,在word中按alt+f11组合键,进入VBA模式

 

二,在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块

 

三,把下面代码复制,粘贴进去.

 

四,更改数值, 改一下宽度和高度数值，这里图片的需要设置的宽度为11.14cm，高度为8.78cm，点运行(类似播放按钮.)或f5,即可设置文档中全部图片

 

Sub Macro()

 

Mywidth = 11.14

 

Myheigth = 8.78 

 

For Each iShape In ActiveDocument.InlineShapes

 

iShape.Height = 28.345 * Myheigth

 

iShape.Width = 28.345 * Mywidth

 

Next iShape

 

End Sub

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/12778571/viewspace-694534/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/12778571/viewspace-694534/