엑셀시트에 그림넣고 저장하면 오류나는 현상

Question

매크로파일에 그림넣고 저장하면 아래 처럼 오류가 나타납니다.

복구하면 그림을 넣었던 시트에서 용지 여백 설정한게 자꾸 깨져서 복구되네요 ㅠㅠ

오류메시지 :

'test.xlsm'의 내용에 문제가 있습니다. 이 통합 문서의 내용을 최대한 복구하시겠습니까?

이 통합 문서의 원본을 신뢰하는 경우 [예]를 클릭하세요.

'test.xlsm'(으)로 복구

파일 수준 유효성 검사 및 복구가 완료되었습니다. 이 통합 문서의 일부 요소가 복구되거나 삭제되었을 수 있습니다.

제거된 기능: /xl/worksheets/sheet3.xml 부분의 워크시트 속성

매크로 내용

Sub 데이터정리_Click()

    Sheets("데이터_입력").Select

    ActiveSheet.Unprotect

    Range("A1:BN51").Select

    Selection.Copy

    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

    Sheets("데이터_산출처리결과").Select

    ActiveSheet.Unprotect

    Range("B6:Q60").Select

    Selection.Copy

    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

    Sheets("데이터_최종").Select

    ActiveSheet.Unprotect

    Range("A1:AH94").Select

    Selection.Copy

    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

    Sheets("데이터_산출결과").Select

    ActiveSheet.Unprotect

    Range("A1:AB210").Select

    Selection.Copy

    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

    Sheets("데이터_백").Select

    Application.DisplayAlerts = False

    ActiveWindow.SelectedSheets.Delete

    Application.DisplayAlerts = True

    Sheets("데이터_산출처리결과").Select

    ActiveSheet.Shapes("Button 8").Select

    Selection.Cut

    Range("F10").Select

End Sub

Sub 성적서인쇄_Click()

    Sheets("데이터_산출처리결과").Select

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

    IgnorePrintAreas:=False

    Sheets("데이터_최종").Select

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

    IgnorePrintAreas:=False

End Sub

Sub 저장_Click()

    Dim fileToSave As Variant

    Dim xQuit As Boolean

    back_name_b = Sheets("데이터_산출처리결과").Range("B2").Text & Range("Z11").Text

    fileToSave = Application.GetSaveAsFilename _

    (InitialFileName:="\192.168.0.14" & back_name_b, filefilter:="엑셀문서(*.xls),*.xls," & "서식문서(*.xlt),*.xlt", Title:="저장하기")

    If fileToSave <> False Then

        ActiveWorkbook.SaveAs Filename:=fileToSave

        xQuit = MsgBox(fileToSave & "로 저장이 완료되었습니다.", vbYes, Title:="저장")

    End If

    Sheets("데이터_최종").Select

    Range("B2").Select

End Sub

Answer 1

안녕하십니까? 꼬북이 님

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

문의 하신 Excel에서 이미지 삽입 매크로에 대해 안내를 드리겠습니다.

말씀해 주신 내용은 안타깝지만 해당 포럼이 아니라 MSDN 개발자 포럼에 문의해 주셔야 도움을 받을 수 있습니다.

http://msdn.microsoft.com/ko-kr/office/

http://social.msdn.microsoft.com/Forums/vstudio/ko-KR/home?forum=visualbasicko

추가적인 내용이 있다면 하단의 [응답] 버튼을 눌러 회신해주시기 바랍니다.

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

응답이 문제 해결에 도움이 되었다면, 아래에 있는 답변으로 [표시] 버튼을 눌러 주시기 바랍니다. 이는 유사한 증상을 겪는 다른 사용자들에게 도움이 될 수 있습니다.

감사합니다.