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에서 셀 값을 기준으로 동적으로 셀에 이미지 또는 그림을 삽입하는 방법은 무엇입니까?