여러 워크시트에 동일한 이미지를 빠르게 삽입하려면 어떻게 해야 하나요?

일반적으로 Excel의 삽입 기능을 사용하여 워크시트에 이미지를 빠르게 삽입할 수 있지만, 통합 문서의 모든 워크시트에 동일한 이미지를 삽입해 본 적이 있나요? 이 글에서는 이 작업을 해결하기 위한 유용한 방법을 소개하겠습니다.

VBA 코드를 사용하여 통합 문서의 모든 워크시트에 동일한 이미지 삽입하기

VBA 코드를 사용하여 통합 문서의 모든 워크시트에 동일한 이미지 삽입하기

다음 VBA 코드는 모든 워크시트에 이미지를 쉽게 삽입하는 데 도움이 됩니다. 아래 단계를 따라 진행하세요:

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 삽입 > 모듈을 클릭하고, 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 모든 워크시트에 동일한 이미지 삽입하기:

Sub InsertLogo()
    Dim I As Long
    Dim xPath As String
    Dim xShape As Shape
    Dim xRg As Range
    xPath = "C:\Users\DT168\Desktop\pic\logo.png"
    If Dir(xPath) = "" Then
        MsgBox "Picture file was not found in path!", vbInformation, "KuTools for Excel"
        Exit Sub
    End If
    For I = 1 To ActiveWorkbook.Sheets.Count
        Set xRg = Sheets(I).Range("A1")
        Set xShape = Sheets(I).Shapes.AddPicture(xPath, True, True, xRg.Left, xRg.Top, xRg.Width, xRg.Height)
    Next
End Sub

참고: 위의 코드에서 C:\Users\DT168\Desktop\pic\logo.png는 이미지의 경로와 이름이며, Range("A1")의 A1은 이미지를 삽입하려는 셀입니다. 필요에 맞게 변경하세요.

3. 그런 다음 F5 키를 눌러 이 코드를 실행하면 특정 이미지가 모든 워크시트의 A1 셀에 한 번에 삽입됩니다. 스크린샷 참고:

참고: 삽입된 이미지는 셀 크기에 맞게 조정됩니다.