可通过vba宏批量统一word图片长宽比：启用开发工具后插入宏代码，设置目标宽度并锁定纵横比；支持全文档或选定范围处理，并需关闭自动压缩以保画质。
如果您在Word文档中插入了多张图片，且需要将所有图片按统一的长宽比例进行缩放调整，则可以通过VBA宏脚本实现批量自动化处理。以下是执行该操作的具体步骤：
一、启用开发工具并打开VBA编辑器
Word默认不显示“开发工具”选项卡，需先启用该功能，才能访问VBA编辑器并插入宏代码。
1、点击“文件”→“选项”→“自定义功能区”。
2、在右侧“主选项卡”列表中，勾选开发工具复选框。
3、点击“确定”后，“开发工具”选项卡将出现在功能区最右侧。
4、切换到“开发工具”选项卡，点击Visual Basic按钮，打开VBA编辑器窗口。
二、插入并运行图片比例调整宏
该宏遍历文档中所有内嵌图片（InlineShape）和浮动图形（Shape），将其宽度设为指定值，并按原始比例自动计算高度，确保长宽比一致。
1、在VBA编辑器中，右键“Normal”或当前文档名 → 选择插入 → 模块。
2、在新模块空白窗口中，粘贴以下代码：
Sub SetUniformAspectRatio()
Dim ils As InlineShape
Dim shp As Shape
Dim targetWidth As Single
targetWidth = CentimetersToPoints(8.5)
For Each ils In ActiveDocument.InlineShapes
If ils.Type = wdInlineShapePicture Then
ils.Width = targetWidth
End If
Next ils
For Each shp In ActiveDocument.Shapes
If shp.Type = msoPicture Or shp.Type = msoLinkedPicture Then
shp.LockAspectRatio = msoTrue
shp.Width = targetWidth
End If
Next shp
End Sub
3、关闭VBA编辑器，返回Word界面。
4、在“开发工具”选项卡中，点击宏，选择“SetUniformAspectRatio”，点击运行。
三、修改宏中目标宽度以适配不同需求
宏中预设宽度为8.5厘米，可通过更改代码中的数值快速适配其他统一尺寸要求，无需重写逻辑。
1、再次打开VBA编辑器，定位到模块中的targetWidth赋值行。
2、将CentimetersToPoints(8.5)中的8.5替换为所需厘米数，例如改为6.2表示6.2厘米宽。
3、若需以英寸为单位，可改用InchesToPoints(3.2)形式，其中3.2为英寸值。
四、仅作用于选定内容范围的变体宏
当只需调整某一段落或选中区域内的图片时，可使用此版本宏，避免影响全文档其他图片。
1、插入新模块，粘贴以下代码：
Sub SetUniformAspectRatioInSelection()
Dim rng As Range
Set rng = Selection.Range
Dim ils As InlineShape
Dim shp As Shape
Dim targetWidth As Single
targetWidth = CentimetersToPoints(8.5)
For Each ils In rng.InlineShapes
If ils.Type = wdInlineShapePicture Then
ils.Width = targetWidth
End If
Next ils
For Each shp In ActiveDocument.Shapes
If Not Intersect(shp.Anchor, rng) Is Nothing Then
If shp.Type = msoPicture Or shp.Type = msoLinkedPicture Then
shp.LockAspectRatio = msoTrue
shp.Width = targetWidth
End If
End If
Next shp
End Sub
2、在Word中先用鼠标拖选目标段落或内容区域。
3、运行该宏，脚本将仅处理所选范围内关联的InlineShape及锚定在此区域的Shape对象。
五、禁用图片自动压缩以保障缩放质量
Word默认启用图片压缩功能，可能在宏执行后导致图片模糊或失真，需提前关闭该设置以维持清晰度。
1、点击“文件”→“选项”→“高级”。
2、向下滚动至图像大小和质量区域。
3、勾选不压缩文件中的图像选项。
4、在下方“默认分辨率”下拉菜单中，选择高保真。
