Excel에서 한 번의 클릭으로 그림을 확대하거나 축소하는 방법은 무엇입니까?

워크시트에 다양한 크기의 여러 그림이 있다고 가정해 봅시다. 이러한 그림들을 한 번의 클릭으로 동일한 크기로 확대하거나 축소할 수 있는 방법이 있을까요? 이를 해결하기 위한 내장 기능은 없지만, 이 문서에서는 VBA 코드를 사용하여 워크시트의 모든 그림을 한 번의 클릭으로 확대하거나 축소하는 방법을 소개합니다.

VBA를 사용하여 한 번의 클릭으로 그림 확대 및 축소

VBA를 사용하여 한 번의 클릭으로 그림 확대 및 축소

그림을 한 번의 클릭으로 확대하거나 축소하려면 아래 단계를 따르세요.

1. 그림 크기를 조정하려는 워크시트 탭을 마우스 오른쪽 버튼으로 클릭하고 코드 보기 컨텍스트 메뉴에서 선택하세요.

2. 나타나는 Microsoft Visual Basic for Applications 창에서 아래 코드를 빈 스크립트에 붙여넣으세요.

VBA: 한 번의 클릭으로 그림 확대 및 축소

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyEntendoffice20161111
    Application.ScreenUpdating = False
    Dim xRg As Range, sPic As Shape
      For Each sPic In ActiveSheet.Shapes
        If Target.Column > 1 Then
            Set xRg = Target.Offset(, -1)
            With sPic
              If TypeName(.OLEFormat.Object) = "Picture" Then
                  If .TopLeftCell.Address = xRg.Address Then
                      .Height = 350
                      .Width = 250
                  End If
              End If
            End With
        ElseIf Target.Column = 1 Then
            With sPic
                If TypeName(.OLEFormat.Object) = "Picture" Then
                   .Height = 60
                   .Width = 60
                End If
            End With
        End If
      Next sPic
    Application.ScreenUpdating = True
End Sub

3. 코드를 저장하고 창을 닫습니다. 그리고 A열의 아무 셀이나 클릭하면 모든 그림이 축소됩니다. 스크린샷을 참조하세요:

4. 그리고 그림의 우측 상단에 있는 셀을 클릭하면 해당 그림이 확대됩니다. 스크린샷을 참조하세요:

팁. 시트에 워터마크를 빠르게 삽입하려면 다음 스크린샷에 표시된 대로 Kutools for Excel의 워터마크 삽입 기능을 사용해 보세요.