엑셀 2007 사진넣기 매크로 입니다. 엑셀 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

안녕하십니까? 박원규 님

Microsoft Office의 Excel 사이트를 방문해 주셔서 감사합니다.

문의 하신 Excel에 삽입한 그림이 다른 PC에서는 열리지 않는 문제에 대한 답변을 드리겠습니다.

먼저 발생된 문제가 특정 파일 또는 그림에서만 발생되는지 확인해 주시기 바랍니다.

또한 해당 이미지를 다른 파일 또는 연결/ 하이퍼 링크에서 가져다 사용하시는 경우에는 연결 설정을 다시해주셔야 합니다.

정확한 문제 확인을 위해서는 해당 파일을 직접 확인해 보아야 합니다. 해당 파일을 공개된 카페 또는 블로그에 올려 주신 후 링크를 주시면 확인 후 지원 도와 드리도록 하겠습니다. (파일을 올려 주실 때, Excel 2010 통합 문서 형식*.xlsx로 올려 주시면 감사하겠습니다.)

(만약 보안에 문제가 된다면, 해당 이미지만 포함해서 올려 주셔도 상관 없습니다.)

아래 DRM 프로그램 부분만 확인해 주시기 바랍니다.

1. 타사 프로그램과 충돌 - 문서 보안 DRM(Fasoo.com, McAfee, Document-Safer, SoftCamp, Mark-Any....)프로그램이 설치되어 있다면 반드시 제거하고 진행하시기 바랍니다.

http://support.microsoft.com/kb/976960/ko

제가 문제에 대해 더 알아야 할 것이 있다면 응답 주시면 감사하겠습니다.

제시해 드린 답변이 도움이 되었기를 바랍니다.