1 Sub 批量调整图片大小() 2 ‘ 3 ‘ 批量修改图片 Macro 4 ‘ 宏由 zxz 录制，时间: 2014/10/29 5 ‘批量调整图片大小，避免图片太大显示不完全 6  7 ‘循环图片集合 8 For Each iShape In ActiveDocument.InlineShapes 9     ‘将高宽比还原为100%10     iShape.ScaleHeight = 10011     iShape.ScaleWidth = 10012     ‘用500除图片宽度，得出一个宽度比13     myScale = 500 / iShape.Width14     ‘如果得出的宽度比小于1，说明图片宽度超出50015     If myScale < 1 Then16         ‘缩小图片比例，将宽度设为500，高度按比例自动变化17         iShape.ScaleHeight = myScale * 10018         iShape.ScaleWidth = myScale * 10019     End If20 Next iShape21 22 End Sub