wps 批量调整图片大小 宏

 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 = 100
11     iShape.ScaleWidth = 100
12     '用500除图片宽度，得出一个宽度比
13     myScale = 500 / iShape.Width
14     '如果得出的宽度比小于1，说明图片宽度超出500
15     If myScale < 1 Then
16         '缩小图片比例，将宽度设为500，高度按比例自动变化
17         iShape.ScaleHeight = myScale * 100
18         iShape.ScaleWidth = myScale * 100
19     End If
20 Next iShape
21 
22 End Sub