准时下班系列_Word合集之第1集—批量设置嵌入型图片解决方案

Hi，各位同学好！我是吴明课堂的答疑老师之一陈婉。祝大家一切顺利，平安快乐！

word文档应用有一个很常见的难题 — 嵌入型的图片无法批量选中和设置，当图片很多时，一张张去设置耗时太多。

今天我将教大家两种解决方法：

• VBA编程方式，适用于已有图文排版，需补救的文档；

• 将所有图片一次导入画布中，批量设置好后再使用，适用于刚开始写的文档。

首先来讲解VBA编程方式。

工作场景描述：

我用word写了一篇文章，插入了多张图片，我想把这些图片批量设置为8cm*15cm的大小，并且让它们居中对齐。

当前效果图如下：（演示文档中图片较少，大家可以自己往文档里增加多张图片测试效果）

详细代码展示：

'批量设置的图片高度（单位为cm）Const h As Double = 8'批量设置的图片宽度（单位为cm）Const w As Double = 15​Sub 批量设置图片()    Dim sh As