word批量按比例缩放图片 Sub 按比例缩放图片() Dim n '图片个数 Dim picwidth Dim picheight On Error Resume Next '忽略错误 kH=0.95 !图片高度缩放比例 kW=0.95 !图片宽度缩放比例