Как увеличить изображение при клике на него в 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?