Power Point 頁碼顯示格式

說真的這個問題，以前都沒注意過…一直到有次的專題簡報中，老師提到了，
最好在簡報檔中加入總投影片數。讓其顯示格式如下 XX of YY (YY表示總投影片數)。這樣聽簡報的人，才能掌握目前的簡報還剩多少。(還要痛苦多久…)

沒想到一注意到這個問題後…惡夢就來了@@"...?

Power Point 如此有名氣的軟體? 竟然...沒有這個小小的功能 (為啥Word就有?)
沒辨了...只好看看 VBA 有沒有辨法完成了...(這就是惡夢的開始...)

幸好，有位老兄，已經完成這個小弟夢想很久的功能了!!那就是 Bill Dilworth 他有開發了一個好用的 Bill's Page XX of YY 的「增益集」。

 

若各位想自已寫的話，下方是小弟研究出來的程式碼。

Option Explicit
Sub AddSlidesNumber()
' 源碼，供各位參考。
' 在頁尾處顯示 XX of YY 之頁碼格式。
' 為所有的投影片增加編號，格式為 XX of YY
'
 Dim i As Integer ' 迴圈變數及投影片編號。
 With Application.ActivePresentation
  For i = 1 To .Slides.Count Step 1
   If .PageSetup.FirstSlideNumber = 0 Then
    If i <> 1 Then
     .Slides(i).HeadersFooters.Footer.Visible = msoTrue
     .Slides(i).HeadersFooters.Footer.Text = (i - 1) & " of " & (.Slides.Count - 1)
    Else
     .Slides(i).HeadersFooters.Footer.Visible = msoFalse
    End If
   Else
    .Slides(i).HeadersFooters.Footer.Visible = msoTrue
    .Slides(i).HeadersFooters.Footer.Text = i & " of " & .Slides.Count
   End If
  Next i
 End With
End Sub