파워포인트 글머리표 일괄 삭제

아는 교수님으로 부터 파워포인트 슬라이드 1780장에 글머리표가 포함되어 있는데 글머리표를 지우고 싶다고 전화를 주셨다. 슬라이드 하나씩 바꾸는것은 쉽지만 전체를 다 그렇게 바꾼다는 것은 아닐것 같아서 그방법은 스킵하고, 개요보기에서 일괄로 바꾸는 방법으로 하려고 했는데 슬라이드가 1780장이라 컴퓨터가 처리를 못하고 있다. 어떻게 해야 할까? 고민을 하다가 매크로를 사용하기로 했다.

 

파워포인트 글머리표 일괄 삭제

 

아래 매크로로 이 문제를 해결했다.

Sub RemoveBulletPoints()     Dim sld As Slide     Dim shp As Shape     For Each sld In ActivePresentation.Slides         For Each shp In sld.Shapes             If shp.HasTextFrame Then                 shp.TextFrame.TextRange.ParagraphFormat.Bullet.Visible = msoFalse             End If         Next     Next End Sub

그래도 몇 초정도는 걸린다.

 

---

매크로를 어떻게 사용하는 건지 모르는 분들을 위해서...

 

메뉴의 개발탭을 선택하라고 하는데 개발탭이 없어서 시작부터 못하는 경우가 있다.

개발탭은 추가할 수 있는데 [파일] - [옵션] - [리본 사용자 지정] - 명령 선택에서 [기본 탭] 선택 - [개발도구] 선택 후 [추가] 버튼 클릭 - [확인]

아래와 같이 메뉴에 [개발 도구]가 추가된다.

 

[개발 도구]메뉴에서 Visual Basic을 선택하면 다음과 같은 화면을 볼 수 있다.

 

[삽입]메뉴의 [모듈]을 선택한 후 위에서 제시한 코드를 입력한다.

 

Microsoft Visual Basic for Application 창을 종료 한 후에 메뉴에서 [보기]의 매크로를 누르면 다음과 같은 화면을 볼 수 있다.

[RemoveBulletPoints]를 선택한 후 [실행]버튼을 누르면 파워포인트 전체 슬라이드에 있는 글머리표가 삭제된다.