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中的图片，已经全部按照代码中设置好的尺寸大小调整好了。其中，上面代码中的宽度和高度的尺寸可以根据自己的需求任意调整。
也可以锁定宽高比，或者只调整宽度。
如果只要调整宽度一致，可以将设置高度那一行删掉即可。
