엑셀2016에서 매크로 사진 넣기 문제

Question

엑셀 2007사용하던 매크로 코드가 2016으로 변경하고는 작동이 되지 않습니다.

1. 내pc  에서 매크로로 올린 사진을 다른 pc에서 보여지지 않습니다.
2. 원본 사진을 지우면  내pc나 다른 pc에서 보여지지 않습니다.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    With Target

        Dim p As Object

        Set p = .Parent.DrawingObjects("Picture")

        If .Count = 7 * 7 Then

            p.Top = .Cells(2, 4).Top

            p.Left = .Cells(2, 4).Left

            If Not p.Visible Then p.Visible = True

        ElseIf p.Visible Then

            p.Visible = False

        End If

    End With

End Sub

수정할 부분을 알려주시면 감사하겠습니다.

Answer 1

안녕하세요,

최신 버전의 Excel에서 VBA 코드를 테스트해본 결과 다음의 오류 메시지가 발생했습니다.

'1004' 런타임 오류가 발생하였습니다:

Worksheet 클래스 중 DrawingObjects 속성을 구할 수 없습니다.

위 오류와 관련하여 디버그를 시도했을 때, 다음 부분의 수정이 필요함을 확인할 수 있었습니다.

Set p = .Parent.DrawingObjects("Picture")

다음의 레퍼런스 문서를 참조하셔서 적절하게 수정하셔야 합니다.

[Office VBA Reference]

https://docs.microsoft.com/ko-kr/office/vba/api...

사용자가 작성한 커스텀 코드에 대해서는 기술 지원 범위를 벗어나는 영역으로 지원을 드리지 못하는 점 양해 부탁 드립니다.

감사합니다.

Answer 2

안녕하세요,

문의하신 내용 확인하였으며, 기재하신 내용을 바탕으로 최적의 답변을 드리기 위한 정보 확인 및 자료 수집을 시작하였습니다. 즉시 답변 드리지 못하는 점 널리 양해 부탁 드리며 최대한 빠른 시간 안에 도움을 드릴 수 있도록 최선을 다하겠습니다.

(질문 내용을 올려주신 시간 기준으로 24시간 이내에 추가 확인 요청 또는 답변을 드리고 있습니다.)

감사합니다.