批量修改word图片大小和压缩图片方法

批量修改图片大小和压缩图片 实现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、选中某一张图片——右键“设置图片”——“图片”——“压缩”—— 选择上面的应用于“文档中的所有图片”。