假设您已在某一列中插入了一系列图片，并将它们调整为与单元格大小一致（如下图所示）。由于这些图片显示较小，可能无法满足某些使用需求。本文将为您介绍一种便捷方法：在 Excel 中，只需单击图片即可将其放大，再次单击则恢复至原始尺寸。

使用 VBA 代码在单击时放大图片

使用 VBA 代码在单击时放大图片

以下 VBA 代码可让您在 Excel 中单击图片时将其放大。请按以下步骤操作：

1. 右键单击需要通过单击放大的图片，然后在右键菜单中点击分配宏。参见下图：

2. 在分配宏对话框中，点击新建按钮。

3. 在弹出的 Microsoft Visual Basic for Applications 窗口中，请将下方的 VBA 代码复制并粘贴到 Sub 与 End Sub 之间。参见下图：

VBA 代码：在 Excel 中通过单击放大图片

Dim shp As Shape
    Dim big As Single, small As Single
    Dim shpDouH As Double, shpDouOriH As Double
    big = 3   
    small = 1 
    On Error Resume Next
    Set shp = ActiveSheet.Shapes(Application.Caller)
    With shp
        shpDouH = .Height
        .ScaleHeight 1, msoTrue, msoScaleFromTopLeft
        shpDouOriH = .Height
    
        If Round(shpDouH / shpDouOriH, 2) = big Then
            .ScaleHeight small, msoTrue, msoScaleFromTopLeft
            .ScaleWidth small, msoTrue, msoScaleFromTopLeft
            .ZOrder msoSendToBack
        Else
            .ScaleHeight big, msoTrue, msoScaleFromTopLeft
            .ScaleWidth big, msoTrue, msoScaleFromTopLeft
            .ZOrder msoBringToFront
        End If
    End With

注意：在代码中，您可通过设置 big = 3 来指定图片放大后的尺寸。

4. 然后同时按下 Alt+Q 键，即可关闭 Microsoft Visual Basic for Applications 窗口。

从现在起，单击该图片即可将其放大至您指定的尺寸，再次单击则恢复为原始尺寸，如下图所示。