Board logo

標題: [發問] 如何於投影片母片中插入投影片頁數？ [打印本頁]
作者: Trank    時間: 2011-9-11 19:09     標題: 如何於投影片母片中插入投影片頁數？

製作簡報時可於投影片母片中插入投影片編號以顯示目前投影片編號，但如何插入頁數(隨簡報頁數增減自動變更)？
作者: infoverdad    時間: 2011-9-11 22:17

回復 1# Trank


    [attach]7791[/attach]
作者: Trank    時間: 2011-9-25 00:04

嗨 infoverdad,
感謝回覆，但我的問題是除了頁碼之外如何顯示頁數，如
頁碼/頁數：1/3, 2/3, 3/3。
作者: peter460191    時間: 2011-9-26 10:34

回復 3# Trank


由PowerPoint上方功能表-->檢視-->母片-->投影母片
母片下方-->頁尾或數字區域-->在<#>之後加上 /總片數

然後"關閉母片檢視"就可以了
作者: jsleee    時間: 2011-9-27 09:26

我想 Trank 想要問的應該是 如何自動更新並顯示 總頁數 的功能，
這也是我一直困擾的問題.....
不知道 PowerPoint 有無 類似 Word 的 "功能變數" 功能？？
作者: 偉婕    時間: 2011-9-27 19:34

回復 3# Trank

1.將[投影片編號]顯示
2.進入[投影片母片]
3.透過[控制項]新增一個[標籤]
4.將其移至<#>的右側
5.將此標籤的順序設為[移到最上層]
6.快按此標籤二下,進入到[SlideMaster(程式碼)]
7.貼上以下程式碼
  1. Sub OnSlideShowPageChange()
  2.     For i = 1 To ActivePresentation.Slides.Count
  3.         Label1.Caption = " / " & i
  4.         Label1.Font = "Times New Roman"
  5.         Label1.Font.Size = 12
  6.     Next
  7. End Sub
複製代碼
8.關閉[投影片母片]
9.插入新的投影片後,可按[播放投影片]進行更新
作者: jsleee    時間: 2011-9-29 08:05

回復 6# 偉婕


    感謝版大的分享，經過測試可行，謝謝
作者: peter460191    時間: 2011-9-30 10:58

回復 6# 偉婕
請問 偉婕 ：
真的很好用，但如果簡報底色不是白色時，要如何修改這新增的白色框，謝謝您!


    [attach]8047[/attach]
作者: 偉婕    時間: 2011-9-30 16:26

回復 8# peter460191

至母片,選取[標籤],按[屬性]將[BackStyle]改為[0-fmBackStyleTransparent](透明)
作者: peter460191    時間: 2011-10-4 12:53

回復 9# 偉婕


真好用!
感謝您無私的分享。
作者: inwuyu    時間: 2014-2-14 10:28

回復 6# 偉婕


    您好，請問3-7的步驟是要進去哪個地方操作，完全不知道如何下手，謝謝~
作者: 偉婕    時間: 2014-2-15 01:17

本帖最後由 偉婕 於 2014-2-15 01:28 編輯

回復 11# inwuyu

2010版
首先先將[開發人員]頁籤叫出來
1.按[檔案],選擇[選項]
2.出現[PowerPoint選項]視窗,左側選擇[自訂功能區]
3.[由此選擇命令]下選擇[主要定位點]
4.將右側的[開發人員]勾選
5.按[確定]

3-7的步驟是要進去哪個地方操作?.....請看下去
1.切換至[檢視],選[投影片母片]
2.切換到[開發人員]頁籤
3.在[控制項]中選按[標籤(圖示為A)]
4.於適當位置拖曳出一個適當大小,將此標籤移至<#>的右側
5.於此標籤上按右鍵,選擇[順序],再選擇[移到最上層]
6.快按此標籤二下,進入到[SlideMaster(程式碼)]
7.將原程式碼Private Sub Label2_Click()  End Sub刪除
8.貼上以下程式碼
  1. Sub OnSlideShowPageChange()
  2. For i = 1 To ActivePresentation.Slides.Count
  3. Label1.Caption = " / " & i
  4. Label1.Font = "Times New Roman"
  5. Label1.Font.Size = 12
  6. Next
  7. End Sub
複製代碼
9.關閉[SlideMaster(程式碼)]
10.切換到[投影片母片]頁籤,按[關閉母片檢視]
11.插入新的投影片後,按[F5]播放,即可看到效果
作者: inwuyu    時間: 2014-2-20 10:41

回復 12# 偉婕


    :'(  不知道哪裡出錯，照著您的步驟做，出現的只有「label1」??
作者: 偉婕    時間: 2014-2-20 15:54

回復 13# inwuyu

有按播放嗎?
作者: inwuyu    時間: 2014-2-24 15:04

回復 14# 偉婕


;P  可以了耶~所以是一定要先按「播放」嗎?好神奇啊!!真是太感謝了!!
作者: heavenweaver    時間: 2014-2-28 22:54

回復 12# 偉婕
實在是太強了，PowerPoint 2003 VBA Language Reference有看沒懂等於沒看，看了您的PowerPoint VBA再參照Reference才豁然開朗。



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)