프레젠테이션을 만들고 멀티미디어 개체 및 텍스트를 사용한 특수 효과와 같은 그래픽 효과를 추가하는 도구를 제공하는 Microsoft 프레젠테이션 그래픽 제품군입니다.
기본 파워포인트에서 지원하지 않는 기능이기 때문에 원하신다면 VBA를 활용해보시기 바랍니다.
파워포인트에서 파일을 여시고 Alt-F11 을 눌러 VBA창을 여시고
삽입-모듈을 눌러 모듈을 추가한 뒤에 아래 코드를 붙여넣으세요.
| '페이지 번호 추가 <br><br>Sub AddPageNumberBySection() <br><br> <br><br> Dim pres As Presentation <br><br> Dim sld As Slide, shp As Shape <br><br> Dim s&, f& 'long <br><br> <br><br> Set pres = ActivePresentation <br><br> 'pres.Designs(1).SlideMaster.HeadersFooters.SlideNumber.Visible = msoTrue <br><br> <br><br> 'each section <br><br> For s = 1 To pres.SectionProperties.Count <br><br> 'each slide in a section <br><br> For f = 1 To pres.SectionProperties.SlidesCount(s) <br><br> Set sld = pres.Slides(pres.SectionProperties.FirstSlide(s) + f - 1) <br><br> Set shp = getPageNo(sld) <br><br> If shp Is Nothing Then <br><br> With getPageNo(sld.CustomLayout) <br><br> Set shp = sld.Shapes.AddPlaceholder(ppPlaceholderSlideNumber, _ <br><br> .Left, .Top, .Width, .Height) <br><br> End With <br><br> End If <br><br> <br><br> With shp.TextFrame.TextRange <br><br> '.InsertSlideNumber '기본 페이지번호 <br><br> .Text = sld.sectionIndex & " - " & f '구역번호 - 페이지번호 <br><br> '.text = "- " & f & " -" '구역내 페이지 번호 <br><br> '.Font.Name = "Calibri" <br><br> '.Font.Size = 12 <br><br> '.Font.Color = RGB(137, 137, 137) <br><br> '.ParagraphFormat.Alignment = ppAlignRight <br><br> End With <br><br> Next f <br><br> Next s <br><br> <br><br>End Sub |
|---|
실행은 코드 창에서 F5를 누르거나 코드창을 닫고 일반편집화면에서 Alt-F8을 누릅니다. 또는 개발도구 리본메뉴로 실행할 수 있습니다.
여기서는 1-1, 2-1, 3-2와 같이 (구역번호 - 구역내페이지번호) 형식인데
위 코드 중 .Text = sld.sectionIndex & " - " & f 를 단순히 .Text = f 로 바꾸시면 구역내 페이지 번호만 나오게 됩니다.
추가로 페이지 번호의 폰트나 글자크기, 색깔 등은 주석을 참고해서 원하는 대로 지정할 수 있습니다.
각 코드 줄의 맨 앞의 (')문자를 제거하면 주석이 풀립니다.
그 다음 코드 창을 닫고 일반 편집화면에서 Alt-F8을 누르고 AddPageNumberBySection 매크로를 실행하시면 됩니다.
슬라이드 번호 삭제는 원래처럼 삽입메뉴 슬라이드 번호 창에서 체크를 해제하고 모두 적용하면 슬라이드 번호가 삭제됩니다.
예시 파일은 아래 링크를 참고하세요.