word批量压缩程序

【文件属性】：

文件名称：word批量压缩程序

文件大小：180B

文件格式：TXT

更新时间：2017-09-06 11:36:04

压缩程序

Sub Macro() Mywidth=3.7 Myheigth=2.4 For Each iShape In ActiveDocument.InlineShapes iShape.Height = 28.345 * Myheigth iShape.Width = 28.345 * Mywidth Next iShape End Sub