wps 批量调整图片大小 宏

 Sub 批量调整图片大小()
 '
 ' 批量修改图片 Macro
 ' 宏由 zxz 录制，时间: 2014/10/29
 '批量调整图片大小，避免图片太大显示不完全
 
 '循环图片集合
 For Each iShape In ActiveDocument.InlineShapes
     '将高宽比还原为100%
     iShape.ScaleHeight =
     iShape.ScaleWidth =
     '用500除图片宽度，得出一个宽度比
     myScale =  / iShape.Width
     '如果得出的宽度比小于1，说明图片宽度超出500
     If myScale <  Then
         '缩小图片比例，将宽度设为500，高度按比例自动变化
         iShape.ScaleHeight = myScale *
         iShape.ScaleWidth = myScale *
     End If
 Next iShape
 
 End Sub