在处理Word文档时，逐张调整图片大小与位置费时费力，本文为您推荐两种最实用的Word批量调整图片大小及位置的技巧，通过这些高效的批量操作方法，用户能够一键统一图片尺寸、快速规范排版，彻底告别繁琐的重复劳动，掌握这款办公效率神器，不仅能大幅提升文档编辑速度，还能让排版更加整洁美观，是职场人士必备的实用技能。
在日常办公中，我们经常需要在Word文档中插入大量图片，比如产品手册、项目报告或调研汇总，插入的图片往往大小不一，如果一张一张地手动去点击、拖拽调整，不仅耗时耗力,而且很难保证每张图片的比例和大小完全一致。
在Word中有没有办法一键搞定所有图片的尺寸呢？答案是肯定的，今天就来为大家详细讲解word批量调整图片大小的两种最实用方法,帮你彻底告别繁琐的重复劳动。
使用VBA宏代码（最精准、最快速）
如果你使用的是Microsoft Office Word，利用VBA宏代码是实现批量操作最强大、最精准的方式，只需几行代码,就能在瞬间将文档内几十张图片调整到指定尺寸。
操作步骤：
- 打开文档： 打开需要调整图片大小的Word文档。
- 进入VBA编辑器： 按下键盘上的
Alt + F11组合键,打开VBA编辑器窗口。 - 插入模块： 在左侧的项目窗口中，右键点击你的文档名称，选择“插入” -> “模块”。
- 粘贴代码： 在弹出的空白代码窗口中,复制并粘贴以下代码：
Sub 批量调整图片大小()
Dim pic As InlineShape
Dim targetWidth As Single
' 设置你想要的图片宽度（单位：厘米），这里以宽度10厘米为例
targetWidth = 10
' 遍历文档中的所有嵌入式图片
For Each pic In ActiveDocument.InlineShapes
pic.LockAspectRatio = msoTrue ' 锁定纵横比，防止图片变形
pic.Width = CentimetersToPoints(targetWidth) ' 设置宽度
Next pic
' 遍历文档中的所有浮动型图片
Dim shp As Shape
For Each shp In ActiveDocument.Shapes
If shp.Type = msoPicture Then
shp.LockAspectRatio = msoTrue
shp.Width = CentimetersToPoints(targetWidth)
End If
Next shp
MsgBox "所有图片已成功批量调整大小！", vbInformation
End Sub
- 运行代码： 按下
F5键，或者点击上方工具栏的绿色“运行”按钮。 - 完成调整： 弹出提示框后，关闭VBA编辑器，回到Word文档，你会发现所有图片已经按照你设定的宽度（10厘米）自动等比例缩放好了。
提示：你可以通过修改代码中 targetWidth = 10 的数字，来设定你实际需要的图片宽度。
使用Word自带“选择对象”功能（适合少量图片或简单排版）
如果你不想使用代码，或者你的Word版本不支持宏（如某些精简版），也可以使用Word自带的选择功能进行批量框选调整，但需要注意的是，这种方法要求图片不能是“嵌入型”环绕方式。
操作步骤：
- 更改图片版式（如需）： 选中所有图片，将图片的环绕方式改为“四周型”或“浮于文字上方”（非嵌入型即可）。
- 启用选择对象： 在Word顶部菜单栏点击“开始”选项卡，在最右侧的“编辑”区域找到“查找和替换”，点击下拉菜单中的“选择对象”功能（鼠标会变成一个向左上方的箭头）。
- 框选图片： 用鼠标在文档中拖拽出一个巨大的虚线框,将需要调整大小的图片全部框选进来。
- 统一调整： 此时所有被框选的图片都被同时选中了，右键点击其中任意一张图片，选择“大小和位置”（或直接在顶部菜单栏的“图片格式”中找到大小设置区域）。
- 输入尺寸： 在弹出的对话框中，取消勾选“锁定纵横比”（如果需要等比例缩放则保持勾选），然后输入你想要的“高度”或“宽度”，按下回车键,所有被选中的图片就会瞬间变成同样的大小。
补充技巧：WPS用户如何批量调整？
如果你使用的是国内常用的WPS Office，操作则更加傻瓜化,WPS原生自带了批量处理图片的功能：
- 选中文档中的任意一张图片。
- 在顶部出现的“图片工具”选项卡中，找到“批量调整大小”或“压缩图片”旁边的下拉菜单。
- 选择“批量改尺寸”，在弹出的窗口中输入你想要的宽度或高度,点击确定即可一键应用至全文档。
掌握word批量调整图片大小的技巧，是提升文档排版效率的必修课，对于追求效率和精度的职场人士，强烈建议收藏方法一的VBA代码，它能帮你省下大量喝咖啡的时间；而WPS用户则可以直接享受软件自带的一键批量功能，下次再遇到几十张图片需要排版,不妨直接试试这些方法吧！
