批量缩小word图片的宏

    Dim n '图片个数

    On Error Resume Next '忽略错误

    

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

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

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

    Next n

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

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

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

    pxNext n