일단 F12키로 다른 이름으로 저장합니다.
맨 처음 슬라이드로 이동 후 Alt+F11키로 Visual Basic Editor로 이동합니다.
도구, 옵션, 편집기 탭에 "변수 선언 요구"를 체크하고 확인합니다.
삽입, 모듈을 선택합니다.
모듈 창에 아래 내용을 복사후 붙여넣기 하고 실행(F5)시키면 각 슬라이드에 있는 노트가 삭제됩니다.
| Sub DeleteTheNotes() Dim oSlide as Slide On error resume next For each oSlide in activewindow.presentation.slides oSlide.NotesPage.Shapes("Rectangle 3").Delete Next oSlide End sub |
Posted by clubkona
