在Word中批量调整图片大小，打印肯德基优惠券用得上

在Word中批量调整图片大小
Sub 批量调整图片大小()
Dim myShape As Shape, myIns As InlineShape
For Each myIns In ActiveDocument.InlineShapes
myIns.Height = myIns.Height * 0.7                ‘0.7为原图片的70%，可根据需要修改
myIns.Width = myIns.Width * 0.7
Next
End Sub

http://club.excelhome.net/thread-845282-1-1.html