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

Author: Siluvia Last Modified: 2025-05-07

在 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”>“调整大小”>“自定义”以访问高级调整大小设置。