엑셀 2016 사진 삽입 매크로 질문입니다.

Question

Option Explicit

Sub insert_A_Picture_In_Folder()

    Dim rngC As Range                       '현재 선택셀 넣을 변수

    Dim strPath As String                    '경로를 넣을 변수

    If TypeName(Selection) = "Range" Then '선택한 것이 영역이면

        Set rngC = Selection                         '현재셀을 개체변수에 넣음

        strPath = Application.Dialogs(xlDialogInsertPicture).Show  '파일창 띄움

        If strPath = "False" Then Exit Sub  '취소선택 시 중단

        With Selection                                 '선택된 그림파일에서

            .ShapeRange.LockAspectRatio = msoFalse   '좌우고정비율 해제

            .Left = rngC.Left + 2                     '그림왼쪽위치를 현재셀 왼쪽 + 2 위치에

            .Top = rngC.Top + 2                    '그림위쪽 위치를 현재셀 윗쪽 + 2 위치에

            .Height = rngC.Height - 4              '그림 높이를 현재셀 -4 크기로

            .Width = rngC.Width - 4               '그림 폭을 현재셀 -4 크기로

        End With

    Else                                                        '선택한 것이 영역이 아니라면

        MsgBox "영역을 선택하고 재실행"   '메시지 출력

    End If

    Set rngC = Nothing                           '개체변수 초기화(메모리 비우기)

End Sub

위에 매크로 쓰고 있는데

사진이 자꾸 95도 회전해서 나옵니다.

바로 나오게 할 수 있는 방법 없나요

첨에는 셀에 딱 맞춰서 나오다가 어느날 갑자기 사진이 돌아가네요...

부탁합니다.

Answer 1

안녕하세요. 태영김2님.

Excel 2016에서 사진 삽입 매크로를 잘 사용하다, 사진이 회전해서 나오는 현상으로 문의하셨습니다.

해당 문의는 TechNet 포럼을 이용해 보시는 것을 추천해 드립니다.

매크로 사용에 익숙한 파워 사용자 및 전문가분들이 활동하는 곳이라 안내해 드립니다.

아래의 링크를 클릭하시면, 해당 포럼으로 이동합니다.

• TechNet 포럼

기존 사용하시던 Microsoft 계정으로 사용하실 수 있습니다.

왼쪽 위에 질문하기를 클릭하시면, 글을 올릴 수 있습니다.

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