无需插件：用代码批量调整Word中的图片尺寸

在处理Word文档时，我们常常需要调整插入图片的尺寸，尤其是当文档中包含大量图片时，手动修改不仅耗时，还容易出错。虽然市面上有一些Word插件声称可以实现批量修改图片功能，但很多插件不仅体积大，还使用体验不佳。其实，我们只需借助一串简单的代码，就能高效完成这一任务。

操作步骤

调出开发者工具：

打开Word文档，点击菜单栏中的“文件”→“选项”→“自定义功能区”，在右侧的“主选项卡”中勾选“开发者工具”，然后点击“确定”。

打开Visual Basic编辑器

点击菜单栏中的“开发者工具”，然后选择“Visual Basic”按钮，打开编辑器。

插入模块：

在左侧的项目窗口中，右键点击当前的Word文档名称，选择“插入”→“模块”。

粘贴并修改代码

将以下代码粘贴到模块中

运行代码

点击编辑器工具栏中的绿色“运行”按钮，Word文档中的所有图片将自动调整为指定尺寸。

如果你希望保持图片的宽高比，可以将 iSha.LockAspectRatio = msoFalse 改为 iSha.LockAspectRatio = msoTrue，然后只设置宽度或高度，另一个维度会自动调整。

例如，将图片宽度设置为固定值，高度会自动调整，或者将高度设置为固定值，宽度会自动调整。

锁定纵横比的代码

注意事项

备份文档：建议在运行代码前先保存或备份文档，以防操作失误。

总结： 通过这段简单的VBA代码，我们可以轻松实现Word文档中图片的批量修改，无需依赖复杂的插件。这种方法不仅高效，还灵活可控，特别适合需要处理大量图片的用户。