在Word里面有批量图片，要想调整到统一大小，该如何处理呢？

其实这种问题，无外乎就两种思路了，第一就是手动，第二就是使用VBA了，如果想手动的话，其实还是挺麻烦的，你要先选择所有图片，然后再统一调整，但是在Word里面，要选中所有图片，就没有Excel那么方便了（此处略去……），我们采用的方法，是使用VBA来做，即使再多的图片，也在10秒钟内搞定！

 

导入图片

假设我们就导入这些图片了，大小嘛，有的相同， 有的不同，尺寸是各异的，我们的目标就是要调整到统一大小；

可以在插入选项卡下面，批量导入，也可以单张导入，这个就看你自己的需要了；

设置大小

在Word中按Alt+F11，把下面的代码粘贴进去，然后按F5执行就可以了；

（你可以修改代码中的15和9分别为你需要的尺寸即可）

Sub FormatPics() Dim Shap As InlineShape For Each Shap In ActiveDocument.InlineShapes If Shap.Type = wdInlineShapePicture Then Shap.LockAspectRatio = msoFalse '不锁定纵横比 Shap.Width = CentimetersToPoints(15) '宽15CM Shap.Height = CentimetersToPoints(9) '高9CM End If Next End Sub

 

 

动画演示