实现WORD图片的批量导入、批量修改图片大小和批量压缩图片方法

实现在WORD图片的批量导入：如果图片都存在同一个文件夹中，那么我们可以按住shift键批量插入图片~

一、批量修改word图片大小

1、菜单——“工具”——“宏”——“宏”，也可以用快捷键ALT+F8调出，

2、在“宏”窗口中，“宏名”改成“批量调整图片大小”

再点“编辑”

复制、粘贴以下代码：

Sub 批量调整图片大小()

'

' 调整图片大小 Macro

' 宏在 2011-5-22 由 User 创建

'

Dim iShape As InlineShape, WidthNum As Long

  For Each iShape In ActiveDocument.InlineShapes

    With iShape

      WidthNum = .Width

      .Width = 13 * 28.35

      .Height = (13 * 28.35 / WidthNum) * .Height

    End With

    Next

' 注：1厘米＝28.35磅值

' 以上为同比例缩放的近似算法

End Sub

再点工具栏里的“保存”，保存修改。

3、选择宏名——运行，就可以自动批量修改图片大小。

二、批量压缩word图片大小

1、选中某一张图片——右键“设置图片格式”——“图片”——“压缩”——

选择上面的应用于“文档中的所有图片”。