Word图片统一调整大小方法VBA宏批量设置形状尺寸

还在为Word中成百上千张大小不一的图片逐个调整而头疼？本文手把手教你用VBA宏一键批量统一所有图片尺寸——无论嵌入式还是浮动图片，只需启用开发工具、粘贴几行代码、修改宽高参数（如8cm×6cm）、点击运行，瞬间完成全文档图片标准化；操作简单、精准高效，最后保存为.docm格式即可永久保留宏功能，彻底告别手动调整的耗时与失误。

如果您在Word文档中插入了大量图片，但每张图片尺寸不一，手动逐个调整既耗时又容易出错，则可以通过VBA宏脚本实现一键批量设置所有图片为统一尺寸。以下是具体操作步骤：

一、启用开发工具并打开VBA编辑器

Word默认不显示“开发工具”选项卡，需先启用该功能，才能访问VBA编辑器以编写和运行宏代码。

1、点击“文件”→“选项”→“自定义功能区”。

2、在右侧“主选项卡”列表中，勾选开发工具复选框。

3、点击“确定”保存设置，此时顶部菜单栏将出现“开发工具”选项卡。

4、切换到“开发工具”选项卡，点击Visual Basic按钮，打开VBA编辑器窗口。

二、插入新模块并粘贴宏代码

VBA编辑器中需新建一个标准模块，用于存放可执行的宏脚本；代码将遍历当前文档中所有内嵌图片（即InlineShape）与浮动图形（即Shape），分别设置其高度与宽度为目标值。

1、在VBA编辑器左侧“工程资源管理器”中，右键点击当前文档项目（如Normal或Document1）。

2、选择“插入”→“模块”，新建一个空白模块。

3、在右侧代码窗口中，粘贴以下完整VBA代码：

Sub SetAllPicturesToUniformSize()

Dim ils As InlineShape

Dim shp As Shape

Dim targetWidth As Single, targetHeight As Single

targetWidth = CentimetersToPoints(8)

targetHeight = CentimetersToPoints(6)

For Each ils In ActiveDocument.InlineShapes

If ils.Type = wdInlineShapePicture Then

ils.Width = targetWidth

ils.Height = targetHeight

End If

Next ils

For Each shp In ActiveDocument.Shapes

If shp.Type = msoPicture Or shp.Type = msoLinkedPicture Then

shp.Width = targetWidth

shp.Height = targetHeight

End If

Next shp

MsgBox "已完成：所有图片已设为8厘米宽 × 6厘米高"

End Sub

三、修改目标尺寸参数

上述代码中预设尺寸为8厘米宽、6厘米高，若需适配其他规格，仅需更改代码中对应两行数值即可，无需调整逻辑结构。

1、定位到代码中targetWidth = CentimetersToPoints(8)这一行。

2、将括号内的数字8替换为您需要的宽度值（单位：厘米）。

3、定位到下一行targetHeight = CentimetersToPoints(6)。

4、将括号内的数字6替换为您需要的高度值（单位：厘米）。

四、运行宏完成批量设置

宏代码保存后，可通过开发工具选项卡直接运行，立即对当前文档全部图片应用设定尺寸，包括嵌入式图片和环绕排版的浮动图片。

1、关闭VBA编辑器，返回Word主界面。

2、切换至“开发工具”选项卡，点击宏按钮。

3、在弹出对话框中选择宏名SetAllPicturesToUniformSize。

4、点击运行按钮，等待执行完成提示框出现。

5、确认提示框内容后点击“确定”，文档中所有符合条件的图片即已更新为指定尺寸。

五、保存启用宏的文档格式

含VBA宏的Word文档必须保存为启用宏的格式，否则下次打开时宏将不可用，且系统可能自动禁用已保存的代码。

1、点击“文件”→“另存为”，选择保存位置。

2、在“保存类型”下拉菜单中，选择Word启用宏的文档 (*.docm)。

3、输入文件名，点击“保存”。

4、关闭并重新打开该.docm文件，宏仍将保留在文档内，可重复调用。

到这里，我们也就讲完了《Word图片统一调整大小方法VBA宏批量设置形状尺寸》的内容了。个人认为，基础知识的学习和巩固，是为了更好的将其运用到项目中，欢迎关注golang学习网公众号，带你了解更多关于的知识点！