ppt 2010을 사용하는데 저장할 때 오류메시지가 뜹니다.

Question

power point 2010을 사용하고 있는데

문서를 편집하고 저장을 하면 다음과 같은 오류메시지가 뜨고 저장이 되지 않습니다.

메시지 내용 : <power point에서 고칠 수 없는 오류가 발생했습니다. 프레젠테이션을 저장하고 power point를 종료한 후 다시 시작하십시오.>

위와 같은 메시지가 떠서 기존 프로그램을 지우고 다시 깔았는데도 여전히 에러 메시지가 뜹니다.

그래서 'V3개인PC주치의365 서비스'를 받아서 PC에 대해서 체크를 받았는데도 여전히 에러 메시지가 뜹니다.

답변 부탁드립니다. 감사합니다.

Answer 1

안녕하십니까? moonyahn 님

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

문의 하신 PowerPoint 저장시 "PowerPoint에서 고칠 수 없는 오류가 발생했습니다. 프레젠테이션을 저장하고 PowerPoint를 종료한 후 다시 시작하십시오." 오류가 발생되는 문제에 대해 안내를 드리겠습니다.

혹시 아래의 내용처럼 함께 열려있는 Office프로그램이 있다면, 종료 하신 후 확인 부탁 드립니다.

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

현재 말씀해 주신 내용만 가지고는 정확한 문제 확인이 어렵습니다. V3의 경우 현재 운영체제에 바이러스 등에 대한 점검만 진행되는 것이지, Office/Windows에 대한 손상 복구가 되는 것이 아닙니다.

[시작]-[제어판]-[관리 도구]-[이벤트 뷰어]의 "Windows 로그"-"응용 프로그램"에서 PowerPoint의 어떤 모듈에서 오류가 발생되고 있는지 확인해 주시기 바랍니다.

일반적으로 오류의 경우 Windows/Office 손상 뿐만이 아니라, 사용중인 기본 프린터와 호환성 이슈 등 다양하게 발생될 수 있는 부분입니다. 문제 증상이 항상 발생되는지? 간헐적으로 발생되는지도 확인해 주시기 바랍니다.

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

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

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

감사합니다.

Answer 2

바이러스보다는

파워포인트에서 사용하는 메모리가 가득차서 생기는 에러로 보입니다.

파워포인트 파일에는 눈에 보이지 않는 개체가 수없이 많을 수 있습니다.

예를 들어 복사-붙여넣기를 하다가 보이지 않는 개체까지 복사가 되거나

VBA 스크립트나 매크로에서 슬라이드쇼 중에 Shape 등의 개체를 생성한다면 만일 사용자가  슬라이드쇼를 저장하면 생성된 보이지 않는 개체까지 저장이 되고  이러한 과정이 반복되면 쌓이고 쌓여서 결국에는 파워포인트가 감당할 수 없게 됩니다.

해결책은 파일- 정보-문제확인 메뉴에서 문서검사를 실행하십시요.

저장해야한다는 메시지는 무시하시고 

검사를 시작하십시요. (보이지 않는 슬라이드 서식에 체크가 된 상태로)

검사 결과 발견된 보이지 않는 개체(대개 천여개 이상)를 '삭제'버튼을 눌러서 삭제합니다.

이제 저장이 가능할 것입니다.

슬라이드쇼를 실행한 후 저장을 계속하게 되면 

같은 에러가 또 발생할 수 있습니다.

무분별한 복사/붙여넣기는 이런 개체가 자신도 모르게 복사되어 저장될 수 있습니다.

또한 VBA 스크립트 사용시 

보이지 않는 개체가 생성되었는지 확인하고 삭제하는 매크로나 스크립트를 이용하는 것이 좋습니다.

참고로 아래 내용은 VBA 스크립트 상의 문제입니다.

다음은 슬라이드 속 보이지 않는 Shape을 모두 삭제하는 VBA 스크립트(매크로)입니다.

  Sub remove_invisible()

Dim i as Integer

Dim myShape as Shape

Dim myCount as Integer

For i = 1 To ActivePresentation.Slides.Count

For Each myShape In ActivePresentation.Slides(i).Shapes

If myShape.Visible = msoFalse  Then

myShape.Delete ' erase shapes

myCount = myCount + 1

End If

Next myShape

Next

MsgBox myCount & " shapes were deleted."

End Sub            

하지만 심지어 위 스크립트 마저도 연속된 이름없는 개체는 놓칠 수가 있습니다.

For each 문에서 myShape.Delete로 삭제하면 다음 Shape으로 넘어가야 하지만  

배열 구조상 지워진 자리에 다음 Shape이 앞당겨져버리기 때문에 연속된 이름없는 개체는 놓치게 됩니다.

  Sub remove_invisible()

Dim i, j as Integer

Dim myShape as Shape

Dim myCount as Integer

For i = 1 To ActivePresentation.Slides.Count

For j =ActivePresentation.Slides(i).Shapes.Count to 1 Step -1

set myShape = ActivePresentation.Slides(i).Shapes(j)

If myShape.Visible = msoFalse  Then

myShape.Delete ' erase shapes

myCount = myCount + 1

End If

Next j

Next i

MsgBox myCount & " shapes were deleted."

End Sub

이렇게 아래로 내려가면서 삭제하는 것이 좋습니다.