wps 批量調整圖片大小 宏

Sub 批量調整圖片大小()
'
' 批量修改圖片 Macro
' 宏由 zxz 錄制，時間: 2014/10/29
'批量調整圖片大小，避免圖片太大顯示不完全

'循環圖片集合
For Each iShape In ActiveDocument.InlineShapes
    '將高寬比還原為100%
    iShape.ScaleHeight = 100
    iShape.ScaleWidth = 100
    '用500除圖片寬度，得出一個寬度比
    myScale = 500 / iShape.Width
    '如果得出的寬度比小於1，說明圖片寬度超出500
    If myScale < 1 Then
        '縮小圖片比例，將寬度設為500，高度按比例自動變化
        iShape.ScaleHeight = myScale * 100
        iShape.ScaleWidth = myScale * 100
    End If
Next iShape

End Sub