如何在Excel中点击图片时放大它？

假设你已经将一组图片插入到某一列，并且将图片大小与单元格大小匹配，如下截图所示。由于插入的图片看起来较小，出于某些目的，你可能需要将其放大。本文将向你展示在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”窗口。

从现在开始，当你点击图片时，它将被放大到你指定的尺寸，再次点击将恢复到其原始大小，如下截图所示。

相关文章：

• 如何在Excel中将图片锁定到单元格或单元格内？
• 如何根据单元格值在Excel中动态插入图片或图像到单元格？