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

Linux中如何使用gThumb批量调整图片大小