如何在 Word 中批量调整所有或多张图片的大小？

作者Sun修改日期2025-01-09

从互联网或其他文件复制或导入图片时，图片尺寸往往参差不齐。单独调整每张图片的大小虽然常见，但如果图片数量较多，操作起来会非常耗时。本教程将为您详细介绍多种方法，先演示如何调整单张图片的尺寸，再分享高效批量调整多张图片大小的实用技巧。

在 Word 中手动调整图片大小

通过 Kutools for Word 一键批量调整多张图片大小

使用 VBA 将调整图片大小调整为特定尺寸

在 Word 中手动调整图片大小

选择一张图片，即可显示其调整大小的手柄。
拖动任意调整大小的手柄，将图片调整至您理想的尺寸。

注意：此方法无法批量调整多张图片的尺寸，需对每张图片单独操作。

使用 Kutools for Word 批量调整所有图片大小

使用 Kutools for Word 的调整图片大小工具，可一键调整文档中所有图片的尺寸，大幅节省手动操作的时间和精力，让您高效批量调整图片大小。

Kutools for Word，搭载 AI 功能🤖，提供超过 100 项实用功能，助您轻松完成各类任务。

立即下载

要将所有图片调整为其原始尺寸的特定百分比：
- 单击 KUTOOLS PLUS > 调整大小，然后在下拉列表中选择任意一个百分比。例如，选择 50%，即可将所有图片调整为原始尺寸的一半。
要将所有图片调整为与所选图片一致的尺寸：
1. 选择一张图片作为尺寸参考。
2. 单击 KUTOOLS PLUS > 调整大小 > 调整为选图大小，即可将所有图片统一调整为与所选图片相同的尺寸。
如需更多自定义选项，请点击 KUTOOLS PLUS > 调整大小 > 自定义，即可进入高级调整大小设置。

想要了解更多关于 Kutools for Word 的调整图片大小工具的详细信息，请点击此处，浏览完整指南及详细操作步骤。

Kutools for Word 是终极的 Word 插件，能够简化您的工作流程并提升文档处理效率。立即获取！

使用 VBA 将图片调整为指定尺寸

通过以下 VBA 代码，您可以轻松将图片调整为理想尺寸。以下示例展示了如何将图片高度设置为 1.78 英寸，宽度设置为 3.17 英寸。

请选择您希望调整尺寸的图片。
按下 Alt + F11，即可打开 Microsoft Visual Basic for Applications 窗口。

单击模块，在插入选项卡中，然后将下方 VBA 代码复制并粘贴到模块窗口中。

Sub ResizePics()
Dim shp As Word.Shape
Dim ishp As Word.InlineShape
If Word.Selection.Type <> wdSelectionInlineShape And _
Word.Selection.Type <> wdSelectionShape Then
    Exit Sub
End If
If Word.Selection.Type = wdSelectionInlineShape Then
    Set ishp = Word.Selection.Range.InlineShapes(1)
    ishp.LockAspectRatio = False
    ishp.Height = InchesToPoints(1.78)
    ishp.Width = InchesToPoints(3.17)
Else
    If Word.Selection.Type = wdSelectionShape Then
        Set shp = Word.Selection.ShapeRange(1)
        shp.LockAspectRatio = False
        shp.Height = InchesToPoints(1.78)
        shp.Width = InchesToPoints(3.17)
    End If
End If
End Sub

注意：在上述代码中，ishp.Height = InchesToPoints(1.78) 和 shp.Width = InchesToPoints(3.17) 用于设置图片的高度和宽度（单位为英寸）。您可根据实际需求灵活调整这些数值。