VBA를 통해서 이미지 삽입 시, 많이 사용하는 LoadPicture를 사용한다.

하지만 해당 LoadPicture()를 사용할 경우, 2010 버전 이후에서는 이미지Link가 되고, 

파일 저장 시, 이미지가 함께 저장되지 않는다.

그래서 다른 사람들에게 전달하거나 정리하기에는 알맞지 않은 함수;;

그래서 다른 함수를 찾은 것이 AddPicture 함수가 있다.

해당 함수를 사용하면 이미지를 호출하고 저장할 수 있다.

용법:

Shapes.AddPicture(파일명, 파일연결 여부 , 그림을 문서와 저장 여부 

                             , X좌표 , Y좌표, 이미지 높이, 이미지 넓이)

실제 사용 시.

    dim r위치

    set r위치 = Range("Sheet1!A1")

    iLeft = r위치.Left

    iTop = r위치.Top

    Set s = Worksheets(sSheetName).Shapes.AddPicture(sFileName, False, True, iLeft, iTop, 51, 51)

시트1에 A1위치에 이미지를 삽입하는 방법이다.