파워포인트 슬라이드 번호 넣기에서 전체페이지 자동으로 넣기
1. Alt+F11(Visual Basic Editor)
2. 삽입 -> 모듈
3. 모듈창에 아래와 같이 입력
4. 실행(F5)하면 바닥글 위치에 표시됩니다.
------------------------------------------------------------------
Sub dhUserPage()
Dim i As Integer, j As Integer
With ActivePresentation
j = .Slides.Count
For i = 1 To j
.Slides(i).HeadersFooters.Footer.Text = i & "/" & j
Next i
End With
End Sub
------------------------------------------------------------------
* 실행방법
1) Visual Basic Module 창에서 F5 을 누르면 실행창이 나타남
2) 실행 버턴 누름
그러면 ppt 파일의 '바닥글' 에 Page가 자동으로 실행되어 나타남
Page가 늘거나 줄어들었을때도 위방법대로만 하면 자동으로 Page를 수정함
3) Visual Basic 프로그램을 종료
4) ppt 파일에서 실행(F5)하면 끝
반응형