如何在 Word 文档中点击图片实现放大或扩展效果？

作者Siluvia修改日期2025-04-09

在 Word 文档中插入图片，不仅能够显著提升文档的视觉吸引力和表现力，还能增强整体效果。然而，当图片内容较为丰富或需要节省页面空间时，让读者能够点击图片进行放大查看会更加实用。虽然 Word 本身并未直接提供点击放大图片的功能，但我们仍可通过一些方法实现类似的效果。

本教程将为您详细讲解如何创建可点击放大或扩展的图片，全面提升 Word 文档的互动性与实用性。

通过 VBA 代码实现点击图片放大或扩展

使用 Kutools for Word 一键调整所有图片大小

通过 VBA 代码实现点击图片放大或扩展

以下 VBA 代码可帮助您在 Word 文档中实现点击放大图片，操作步骤如下：

在包含图片的 Word 文档中，按下 Alt + F11，即可打开“Microsoft Visual Basic for Applications”窗口。

在“Microsoft Visual Basic for Applications”窗口中，点击“插入” > “类模块”，然后将以下代码粘贴到“类模块”窗口中：

Public WithEvents GApp As Word.Application
'Updated by ExtendOffice 20181129
Private Sub GApp_WindowSelectionChange(ByVal Sel As Selection)
    Dim xShape As InlineShape
    On Error Resume Next
    Set xShape = Sel.InlineShapes(1)
    xShape.Height = 200
    xShape.Width = 200
End Sub

注意：在代码中，数字 200 表示图片的高度和宽度（单位：磅）。您可根据实际需求灵活调整该数值。

接下来，点击“插入” > “模块”，并将以下代码复制到“模块”窗口中：

Dim cls As New Class1
'Updated by ExtendOffice 20181129
Sub register_Event_Handler()
    Set cls.GApp = Word.Application
End Sub

按下 F5 键运行代码，然后关闭“Microsoft Visual Basic for Applications”窗口。
现在，您只需单击文档中的图片，即可将其放大至预设尺寸。请参见下方截图：

使用 Kutools for Word 一键调整所有图片大小

使用 Kutools for Word 的“调整图片大小”实用工具，您可以通过指定百分比、匹配所选图片大小，或自定义具体尺寸与比例，快速调整 Word 文档中所有图片的大小。

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

立即下载

如需将所有图片调整为其原始尺寸的一定百分比：
- 单击“KUTOOLS PLUS” > “调整大小”，然后从下拉菜单中选择六种百分比中的任意一种。例如，选择“50%”即可将所有图片缩小为原始尺寸的一半。
如需让所有图片与所选图片大小一致：
1. 选择一张图片来设定模型尺寸。
2. 点击“KUTOOLS PLUS” > “调整大小” > “调整为选图大小”，即可将所有图片统一调整为与所选图片相同的尺寸。
如需更多自定义选项，请点击“KUTOOLS PLUS” > “调整大小” > “自定义”，即可访问高级调整大小设置。