wrod一键调整多张图片的大小

这个可以使用word本身的宏功能

我经常使用的调整身份证图像大小宏如下

Sub 身份证大小()

'

' 身份证大小 宏

'

'On Error Resume Next '????

For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes ?? ??

ActiveDocument.InlineShapes(n).Height = 5.4 * 28.35 '??????? 5cm (1cm??28.35px)

ActiveDocument.InlineShapes(n).Width = 8.56 * 28.35 '?????? 4cm

Next n

End Sub

只需要把上面的5.4和8.56改成你想一键调的大小即可使用。