怎样在word里批量修改图片大小

当一个word文件里有很多张图片时，通过使用vba可以批量将文件中所有图片修改为同样大小，令文件看起来更加整洁有序

操作方法

（01）假设有一个word文件，中间有多张大小不一的图片，需要将其中的图片按比例缩放为一样高或者一样宽。

（02）在菜单栏中选择“开发工具”选项卡，点击“Visual Basic”打开VBA编辑器。

（03）在打开的编辑器中输入以下代码，稍后做详细解释。Sub 设为统一宽度()Dim n '图片个数Dim picwidthDim picheightDim newWidthnewWidth = 300On Error Resume Next '忽略错误For n = 1 To t 'InlineShapes 类型图片picheight = neShapes(n)htpicwidth = neShapes(n)neShapes(n)ht = picheight * newWidth / neShapes(n)h = newWidthNext nFor n = 1 To t 'Shapes类型图片picheight = es(n)htpicwidth = es(n)t neShapes(n)ht = picheight * newWidth / neShapes(n)h = newWidthNext nEnd SubSub 设为统一高度()Dim n '图片个数Dim picwidthDim picheightDim newHeightnewHeight = 200 '设为统一高度时修改此数值On Error Resume Next '忽略错误For n = 1 To t 'InlineShapes 类型图片picheight = neShapes(n)htpicwidth = neShapes(n)neShapes(n)ht = neShapes(n)h = picwidth * newHeight / picheightNext nFor n = 1 To t 'Shapes类型图片picheight = es(n)htpicwidth = es(n)t neShapes(n)ht = neShapes(n)h = picwidth * newHeight / picheightNext nEnd Sub

（04）sub后面就是一个过程的名字，想要运行哪个过程，就把活动光标放在哪个过程体里面，或者在右上角选择相应名称的过程。按F5键，或者单击菜单栏上的运行按钮，运行相应过程。

（05）如果运行的是“设为统一宽度”，将得到以下结果。

（06）如果运行的是“设为统一高度”，将得到以下结果。

（07）也可以通过直接设置代码中的neShapes(n)ht、neShapes(n)h、neShapes(n)ht、neShapes(n)h的数值来修改图片，例如“neShapes(n)ht=200”。但是这样就不是等比例缩放了。

特别提示

运行之前注意选择需要运行的过程