기 타 CHAT GPT를 이용한 이미지 일괄 삽입 vba 관련

안녕하세요

최근 GPT 가지고 이것저것 해보고 있는데요..

이미지 일괄 삽입 VBA 코드를 아래와 같이 받았는데...

Set myPicture = ActiveSheet.Pictures.Insert(myFolder & "\" & myFile)

이 부분에서 1004런타임 오류가 나오네요(pictures 클래스 중 Insert 속성을 구할 수 없습니다. 라고 나오네요)

VBA 관련 지식이 전무해서 그런데 혹시 어느 부분 수정이 필요할까요...

Sub InsertPictures()

    Dim myFolder As String

    Dim myFile As String

    Dim myPicture As Picture

    Dim myShape As Shape

    Dim myLeft As Double

    Dim myTop As Double

    Dim myWidth As Double

    Dim myHeight As Double

    Dim myCount As Integer

    ' Set the folder path where the pictures are located

    myFolder = "파일경로"

    ' Set the initial position of the pictures

    myLeft = 10

    myTop = 10

    myWidth = 100

    myHeight = 100

    ' Loop through all the files in the folder

    myCount = 0

    myFile = Dir(myFolder & "\*.jpg")

    Do While Len(myFile) > 0

        ' Insert the picture and resize it to the same size

        Set myPicture = ActiveSheet.Pictures.Insert(myFolder & "\" & myFile)

        myPicture.Left = myLeft

        myPicture.Top = myTop

        myPicture.Width = myWidth

        myPicture.Height = myHeight

        ' Convert the picture to a shape and set the name

        Set myShape = myPicture.ShapeRange.Item(1)

        myShape.Name = "Picture" & myCount

        ' Increment the position for the next picture

        myLeft = myLeft + myWidth + 10

        myCount = myCount + 1

        If myCount Mod 5 = 0 Then

            myLeft = 10

            myTop = myTop + myHeight + 10

        End If

        ' Get the next file

        myFile = Dir

    Loop

End Sub