파워포인트 문서에 전체 페이지 번호 표시하는 법, 슬라이드에 전체 페이지 표시하기

파워포인트 문서 작성시 슬라이드에 전체 페이지 번호 표시 하는 법을 알아보겠습니다.

먼저 여러 슬라이드의 문서를 작성합니다.

1. 메뉴의 [삽입] ▶ [머리글/바닥글]을 선택합니다.

2. 바닥글을 체크합니다.

나중에 슬라이드마스터에서 폰트크기나 위치 변경이 가능합니다.

※ 참고로 VB로 전체 페이지 번호를 삽입하기 위해서는 [슬라이드 번호]에 체크가 되어 있지 않아야 합니다.

만약 체크되어 있다면 해제하여야 제대로 된 페이지 번호를 삽입할 수 있습니다.

3. Alt + F11을 눌러 VB도구를 엽니다.

4. VB 새 창이 열리면 메뉴 [삽입]▶ [모듈] 선택합니다.

5. 아래의 매크로 소스를 전체 복사해서 붙여 넣습니다.

6. VB창 메뉴의 "실행(R)" ▶ "Sub/사용자 정의 폼 실행 F5" 실행 또는 단축키 [F5] 키 누릅니다.

7. 이제 VB 창을 닫으면 됩니다.

8. 슬라이드에 "현재페이지/전체페이지수" 가 바닥글 위치에 자동으로 입력된 것을 확인할 수 있습니다.

9. 한가지 유의할 점은

전체페이지 번호를 표시한 이후에 새 슬라이드가 추가된 경우에는 자동 업데이트가 안되므로

Alt + F11 ▶ 단축키 [F5] 를 눌러 VB도구를 열고 한번 더 실행(R) 해줘야 합니다.

슬라이드 추가시 전체이지 번호 업데이트 순서 : Alt + F11 ▶ 단축키 [F5] ▶ 실행(R)

 

---

파워포인트 바닥글에 전체 페이지 번호 표시하는 매크로

 

파워포인트 바닥글에 전체 페이지 번호를 표시하는 매크로 입니다.

단, 이 매크로는 페이지 수가 늘어나거나 위치가 변경되어도 자동으로 업데이트되지 않으므로 문서작업 완료 후, 다시 "실행(R)" 을 해야 합니다.

​

[ 소스 ]

Sub ShowFullPageNumToFooter()

Dim i As Integer, j As Integer

With ActivePresentation

If .Slides.Count < 1 Then Exit Sub

j = .Slides.Count

For i = 1 To j

If .Slides(i).HeadersFooters.Footer.Visible Then

.Slides(i).HeadersFooters.Footer.Text = i & "/" & j

End If

Next i

End With

End Sub

 

파포전체페이지표시소스.txt

0.00MB

모든 글과 사진의 무단복제를 금합니다.

@anne