엑셀 2007 이하버전에서 정상적으로 사용하고 있는 사진넣기 매크로 입니다. 엑셀 2010에서는 함수가 바뀐것인지 사진이미지가 정상적으로 보이지가 않네요ㅠㅠ 엑셀 2010에서도 정상적으로 사진이 보이게 수정이 가능한지요 부탁드립니다...

Question

엑셀 2007이하 버전에서 사용하고 있는 사진넣기 매크로 입니다.  엑셀 2010에서는 정상적으로 이미지가 보이지가 않습니다. 엑셀 2010에서 바뀐 함수부분이 있는지요? 바뀐함수가 있다면 어떻게 수정해야 하는지 부탁드립니다.

Sub 사진넣기()

    Dim Target As Range

    Set Target = Selection

    strFile = Application.GetOpenFilename(filefilter:="모든파일(*.JPG;*.BMP;*.GIF;*.PNG;*.WMF;*.JPEG),*.JPG;*.BMP;*.GIF;*.PNG;*.WMF;*.JPEG", _

              Title:="삽입할 그림을 선택하세요")

    Set obj = ActiveSheet.Shapes.AddPicture(Filename:=strFile, _

LinkToFile:=msoFalse, _

SaveWithDocument:=msoTrue, _

Left:=1, _

Top:=1, _

Width:=1, _

Height:=1)

   With obj

       .LockAspectRatio = msoFalse

       .Left = Target.Left

       .Top = Target.Top

       .Width = Target.Width

       .Height = Target.Height

   End With

End Sub

Answer 1

동일한 문제라서 병합합니다.