[파워포인트] 매크로를 이용한 슬라이드 노트 일괄 삭제 방법

PPT자료를 만들 때, 슬라이드 노트를 작성하는 경우가 많습니다. 하지만, 작성한 PPT자료를 공유해야 할 때는 슬라이드는 삭제하고 공유하는 것이 좋습니다. PDF로 공유하면 슬라이드 노트를 삭제하지 않고 공유가 가능하지만, PPT자체를 공유해야 하는 경우에는 슬라이드 노트를 지워야 할 필요가 있습니다.

슬라이드가 몇 장 안 된다면 하나씩 지우면 되지만, 슬라이드가 매우 많을 때는 상당히 번거로운 작업이 됩니다. 
그래서, 슬라이드 노트 일괄 삭제 방법을 알아보았습니다.

슬라이드 노트 일괄 삭제 방법

 

1. 검사 기능을 사용하여 삭제

파일우선 슬라이드 노트를 일괄 삭제하는 방법을 검색하면, 대부분 아래와 같이 검사 기능을 사용하여 삭제하는 방법이 나옵니다. 이미 유사한 포스팅이 많아서 아래 링크를 참고하시면 되겠습니다.

https://www.soft2000.com/14422

파워포인트 | 슬라이드 노트 일괄 삭제하는 방법

그런데, PC환경에 따라 검사 기능을 사용할 수 없는 경우가 있습니다. 이럴 때는 매크로 기능을 이용할 수 있습니다.
저는 사내 PC에서 검사 기능이 활성화되지 않아서 매크로를 작성하여 사용하였습니다.

2. 매크로를 이용한 슬라이드 노트 일괄 삭제 방법

1. 개발 도구 -> 매크로를 눌러서 매크로 메뉴에 진입합니다. 만약 개발 도구 -> 매크로 메뉴가 보이지 않는다면, 아래 글을 참고하세요.

2023.03.11 - [IT일반/소소한 팁] - [파워포인트] 개발 도구 - 매크로 메뉴 활성화하는 방법

2. 매크로 이름에 remove_note를 입력하고 만들기 버튼을 클릭합니다.

 

3. 새 창이 열리면서 Visual Basic Editor가 실행됩니다. 여기에 아래의 코드를 복사해서 붙여 넣기 합니다.

Sub remove_notes()
    Dim oSl As Slide
    Dim oSh As Shape
    For Each oSl In ActivePresentation.Slides
        For Each oSh In oSl.NotesPage.Shapes
            If oSh.PlaceholderFormat.Type = ppPlaceholderBody Then
                If oSh.HasTextFrame Then
                    If oSh.TextFrame.HasText Then
                        oSh.TextFrame.DeleteText
                    End If
                End If
            End If
        Next ' Shape
    Next ' Slide

End Sub

 

4. 이제 F5를 누르거나, 에디터 상단 메뉴 실행 버튼을 클릭합니다

5. 아래와 같이 모든 슬라이드의 노트가 삭제됩니다.

슬라이드 노트가 삭제되었습니다.