word批量压缩程序
SubMacro()Mywidth=3.7Myheigth=2.4ForEachiShapeInActiveDocument.InlineShapesiShape.Height=28.345*MyheigthiShape.Width=28.345*MywidthNextiShapeEndSub
下载地址
用户评论
