怎样在word里批量修改图片大小
当一个word文件里有很多张图片时，通过使用vba可以批量将文件中所有图片修改为同样大小，令文件看起来更加整洁有序
操作方法
- 01
假设有一个word文件，中间有多张大小不一的图片，需要将其中的图片按比例缩放为一样高或者一样宽。
- 02
在菜单栏中选择“开发工具”选项卡，点击“Visual Basic”打开VBA编辑器。
- 03
在打开的编辑器中输入以下代码，稍后做详细解释。 Sub 设为统一宽度() Dim n '图片个数 Dim picwidth Dim picheight Dim newWidth newWidth = 300 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 * newWidth / picwidth ActiveDocument.InlineShapes(n).Width = newWidth Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片 picheight = ActiveDocument.Shapes(n).Height picwidth = ActiveDocument.Shapes(n).Width Debug.Print picheight ActiveDocument.InlineShapes(n).Height = picheight * newWidth / picwidth ActiveDocument.InlineShapes(n).Width = newWidth Next n End Sub Sub 设为统一高度() Dim n '图片个数 Dim picwidth Dim picheight Dim newHeight newHeight = 200 '设为统一高度时修改此数值 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 = newHeight ActiveDocument.InlineShapes(n).Width = picwidth * newHeight / picheight Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片 picheight = ActiveDocument.Shapes(n).Height picwidth = ActiveDocument.Shapes(n).Width Debug.Print picheight ActiveDocument.InlineShapes(n).Height = newHeight ActiveDocument.InlineShapes(n).Width = picwidth * newHeight / picheight Next n End Sub
- 04
sub后面就是一个过程的名字，想要运行哪个过程，就把活动光标放在哪个过程体里面，或者在右上角选择相应名称的过程。按F5键，或者单击菜单栏上的运行按钮，运行相应过程。
- 05
如果运行的是“设为统一宽度”，将得到以下结果。
- 06
如果运行的是“设为统一高度”，将得到以下结果。
- 07
也可以通过直接设置代码中的ActiveDocument.InlineShapes(n).Height、ActiveDocument.InlineShapes(n).Width、ActiveDocument.InlineShapes(n).Height、ActiveDocument.InlineShapes(n).Width的数值来修改图片，例如“ActiveDocument.InlineShapes(n).Height=200”。但是这样就不是等比例缩放了。