1、声明：我下面要说的“ 批量修改 word 里的图片大小” 的方法需要使用到宏，所以 最好对 VB 有所了解！当然这不是必需的，只要跟着我的图文教程走，不知道什么是宏，不知 道什么是 VB 也可以！word 批量修改图片大小 固定长宽篇这部分要说的是把 word 中的所有图片修改成固定的并且相同的长和宽！1、打开 word ，工具宏宏（或者直接按 Alt+F8）进入宏的界面，如下面所示，输 入一个宏名，宏名自己起，能记住就行！2、宏名起好了，单击“ 创建”进入 Visual Basic 编辑器，输入如下代码并保存 Sub setpicsize() 设置图片大小 Dim n 图片个数 On Err
2、or Resume Next 忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count InlineShapes 类型图 片 ActiveDocument.InlineShapes(n).Height = 105 设置图片高度为105px ActiveDocument.InlineShapes(n).Width = 105 设置图片宽度105px Next n For n = 1 To ActiveDocument.Shapes.Count Shapes 类型图片 ActiveDocument.Shapes(n).Height = 105 设置图片
3、高度为105px ActiveDocument.Shapes(n).Width = 105 设置图片宽度105px Next n End Sub 3、返回 word ，工具宏宏（或者直接按 Alt+F8），再次进入宏的界面，选择刚才 编辑好的宏，并单击“ 运行” 按钮，就可以了！（图片多时，可能会花一些时间） word 批量修改图片大小 按比例缩放篇这部分要说的是把 word 中的所有图片按比例缩放！具体操作同上，只是代码部分稍做修改，代码如下： Sub setpicsize() 设置图片大小 Dim n 图片个数 Dim picwidth Dim picheight On Error Res
4、ume Next 忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count InlineShapes 类型图 片 picheight = ActiveDocument.InlineShapes(n).Height picwidth = ActiveDocument.InlineShapes(n).Width ActiveDocument.InlineShapes(n).Height = picheight * 1.1 设置高度为 1.1 倍 ActiveDocument.InlineShapes(n).Width = picwidth * 1.1
5、设置宽度为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 * 1.1 设置高度为1.1 倍 ActiveDocument.Shapes(n).Width = picwidth * 1.1 设置宽度为1.1 倍 Next n End Sub 虽然我的代码不是好代码，但确实能解决我的问题，瞬间就把 word 文档里所有图片 放大了 1.1 倍，各种公式、坐标轴都比原来清楚多了，可以拿去打印出来了，呼呼！
