word文档，全部图片改变大小

采用一丢丢VBA代码来弄得，如下

按大小缩放

Sub setpicsize() '设置图片大小

　　Dim n '图片个数

　　On Error Resume Next '忽略错误

　　Forn = 1 ToActiveDocument.InlineShapes.Count 'InlineShapes类型图片

　　ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px

　　ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px

　　Next n

　　Forn = 1 ToActiveDocument.Shapes.Count 'Shapes类型图片

　　ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px

　　ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px

　　Next n

End Sub

按比例缩放

Sub setpicsize()

    Dim n '图片个数

    Dim alBili

    

    Dim picwidth

    Dim picheight

    On Error Resume Next '忽略错误

    alBili = 0.65

    For n = 1 To ActiveDocument.InlineShapes.Count   'InlineShapes类型图片

    picheight = ActiveDocument.InlineShapes(n).Height

    picwidth = ActiveDocument.InlineShapes(n).Width

    ActiveDocument.InlineShapes(n).Height = picheight * alBili '设置高度为1.1倍

    ActiveDocument.InlineShapes(n).Width = picwidth * alBili '设置宽度为1.1倍

    Next n

    For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片

    picheight = ActiveDocument.Shapes(n).Height

    picwidth = ActiveDocument.Shapes(n).Width

    ActiveDocument.Shapes(n).Height = picheight * alBili '设置高度为1.1倍

    ActiveDocument.Shapes(n).Width = picwidth * alBili  '设置宽度为1.1倍

    Next n

End Sub