Как увеличить изображение при нажатии на него в Excel?

Предположим, вы вставили список изображений в столбец и сопоставили размеры изображений с размерами ячеек, как показано на снимке экрана ниже. Поскольку вставленное изображение выглядит маленьким, вам может потребоваться увеличить его для некоторых целей. В этой статье будет показан метод увеличения изображения при щелчке по нему в Excel и восстановления исходного размера вторым щелчком.

Увеличивать изображение при нажатии на него с кодом VBA

Увеличивать изображение при нажатии на него с кодом VBA

Следующий код VBA может помочь вам увеличить изображение, щелкнув его в Excel. Пожалуйста, сделайте следующее.

1. Щелкните правой кнопкой мыши изображение, которое необходимо увеличить, просто щелкнув по нему, затем щелкните Назначить макрос из контекстного меню. Смотрите скриншот:

2. в Назначить макрос диалоговое окно, щелкните Новинка .

3. Во всплывающем Microsoft Visual Basic для приложений окна, скопируйте и вставьте приведенный ниже код VBA между ниже , так и в 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. Затем нажмите другой + Q клавиши одновременно, чтобы закрыть Microsoft Visual Basic для приложений окно.

С этого момента при нажатии на картинку она будет увеличиваться до указанного вами размера, а повторное нажатие восстановит ее до исходного размера, как показано на снимках экрана ниже.

Статьи по теме:

• Как заблокировать изображение / изображение в ячейке или внутри нее в Excel?
• Как динамически вставлять изображение или изображение в ячейку на основе значения ячейки в Excel?