1. 슬라이드 마스터에 들어가서 바닥글 보이기가 활성화 돼 있는지 확인한 후 나온다.
2. Alt+F11을 클릭하여 Visual Basic Editor를 실행시킨다.
3. 삽입 -> 모듈
4. 모듈창에 아래와 같이 입력한다.
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
5. 실행(F5 클릭)하면 바닥글 위치에 표시된다.
P.S. 위 코드를 약간 수정하면 다른 형식으로 페이지 표시를 할 수도 있다;)
2. Alt+F11을 클릭하여 Visual Basic Editor를 실행시킨다.
3. 삽입 -> 모듈
4. 모듈창에 아래와 같이 입력한다.
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
5. 실행(F5 클릭)하면 바닥글 위치에 표시된다.
P.S. 위 코드를 약간 수정하면 다른 형식으로 페이지 표시를 할 수도 있다;)



댓글을 달아 주세요
우앗 좋은 정보
고맙습니다