MS Office Word 图片批量缩放

word 图片批量缩放

操作要点是：
1、打开 word，工具-宏-宏（或者直接按 Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！
2、宏名起好了，单击“创建”进入 Visual Basic 编辑器，输入如下代码并保存
3、返回 word，工具-宏-宏（或者直接按 Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间）
虽然小一的代码不是好代码，但确实能解决小一的问题，瞬间就把 word 文档里所有图片放大了 1.1 倍，各种公式、坐标轴都比原来清楚多了，可以拿去打印出来了！
方法就是用宏
方法一：按大小缩放

Sub setpicsize() ' 设置图片大小
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 ' 设置图片宽度 300px
Next n
End Sub

方法二：按比例缩放

Sub setpicsize() ' 设置图片大小
Dim n ' 图片个数
Dim picwidth
Dim picheight
On Error Resume 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 ' 设置宽度为 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