20210212 批量修改word文件中图片大小的方法-省时省钱爽

20210212 批量修改word文件中图片大小的方法-省时省钱爽

如果一个word文件中有多张图片，需要统一一下大小，手工调整费时费力。根据“省时省钱爽”的原则，所有这种重复，没有技术含量的事情，一定会有更高效的解决方法。

快速统一大小有两种方法：

一、利用F4键来统一大小，F4键是重复上一次操作（与ctrl + Y）效果相同

先调整一张图片的大小之后，然后再选中第二张图片，此时按下F4 或者 Ctrl+Y，就可以重复上一次的操作。

这种方法比较适合图片不是特别多的情况。如果一个文档中图片很多，建议用下面的方法。

二、利用VBA编程的方法（无须任何编程基础）

说到编程，没有基础的人往往望而却步。其实这里的VBA编程非常简单，只要拷贝一下这里的命令即可。

具体做法如下：

1、打开需要修改的word文件，然后按下【Alt+F11】组合键打开VBA编辑窗口。

2、录入下面这段程序

在VBA窗口中双击左侧的“ThisDocument”打开该文档的代码编辑器，并且输入以下的内容。

Sub FormatPics()

Dim TuPian As InlineShape

For Each TuPian In ActiveDocument.InlineShapes

If TuPian.Type = wdInlineShapePicture Then

TuPian.LockAspectRatio = msoFalse '不锁定图片的宽高比

TuPian.Width = CentimetersToPoints(10) '设置图片宽度为10CM

TuPian.Height = CentimetersToPoints(8) '设置图片高度为8CM

End If

Next

End Sub

运行代码之后再返回查看Word中的图片，已经全部按照代码中设置好的尺寸大小调整好了。其中，上面代码中的宽度和高度的尺寸可以根据自己的需求任意调整。

也可以锁定宽高比，或者只调整宽度。

如果只要调整宽度一致，可以将设置高度那一行删掉即可。