Trank

　暱稱: Trank

帖子: 20
主題: 6
精華: 0
積分: 57
點名: 0
作業系統: Windows 7
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: Linkou
註冊時間: 2011-9-3
最後登錄: 2013-4-7

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2011-9-11 19:09 | 只看該作者

[發問] 如何於投影片母片中插入投影片頁數？

製作簡報時可於投影片母片中插入投影片編號以顯示目前投影片編號，但如何插入頁數(隨簡報頁數增減自動變更)？

樓主熱帖

heavenweaver

中學生 Rank: 2

帖子: 48
主題: 6
精華: 0
積分: 60
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-8-13
最後登錄: 2023-2-7

16^#

發表於 2014-2-28 22:54 | 只看該作者

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

很抱歉，我是小學生，不能下載檔案，是個小屁孩！

TOP

inwuyu

小學生 Rank: 1

帖子: 3
主題: 0
精華: 0
積分: 4
點名: 0
作業系統: Win7
軟體版本: office2010
閱讀權限: 10
註冊時間: 2014-2-14
最後登錄: 2014-2-24

15^#

發表於 2014-2-24 15:04 | 只看該作者

回復 14# 偉婕

;P 可以了耶~所以是一定要先按「播放」嗎?好神奇啊!!真是太感謝了!!

TOP

偉婕

　暱稱: 偉婕

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 376
主題: 84
精華: 0
積分: 419
點名: 0
作業系統: Win 8
軟體版本: Office 2007
閱讀權限: 100
性別: 女
註冊時間: 2010-4-30
最後登錄: 2022-6-2

論壇貢獻勳章美女勳章熱烈參與勳章

14^#

發表於 2014-2-20 15:54 | 只看該作者

回復 13# inwuyu

有按播放嗎?

偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

TOP

inwuyu

小學生 Rank: 1

帖子: 3
主題: 0
精華: 0
積分: 4
點名: 0
作業系統: Win7
軟體版本: office2010
閱讀權限: 10
註冊時間: 2014-2-14
最後登錄: 2014-2-24

13^#

發表於 2014-2-20 10:41 | 只看該作者

回復 12# 偉婕

:'( 不知道哪裡出錯，照著您的步驟做，出現的只有「label1」??

TOP

偉婕

　暱稱: 偉婕

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 376
主題: 84
精華: 0
積分: 419
點名: 0
作業系統: Win 8
軟體版本: Office 2007
閱讀權限: 100
性別: 女
註冊時間: 2010-4-30
最後登錄: 2022-6-2

論壇貢獻勳章美女勳章熱烈參與勳章

12^#

發表於 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.貼上以下程式碼

Sub OnSlideShowPageChange()
For i = 1 To ActivePresentation.Slides.Count
Label1.Caption = " / " & i
Label1.Font = "Times New Roman"
Label1.Font.Size = 12
Next
End Sub

複製代碼

9.關閉[SlideMaster(程式碼)]
10.切換到[投影片母片]頁籤,按[關閉母片檢視]
11.插入新的投影片後,按[F5]播放,即可看到效果

偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

TOP

inwuyu

小學生 Rank: 1

帖子: 3
主題: 0
精華: 0
積分: 4
點名: 0
作業系統: Win7
軟體版本: office2010
閱讀權限: 10
註冊時間: 2014-2-14
最後登錄: 2014-2-24

11^#

發表於 2014-2-14 10:28 | 只看該作者

回復 6# 偉婕

您好，請問3-7的步驟是要進去哪個地方操作，完全不知道如何下手，謝謝~

TOP

peter460191

中學生 Rank: 2

帖子: 163
主題: 27
精華: 0
積分: 193
點名: 0
作業系統: winsows 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
註冊時間: 2010-12-20
最後登錄: 2025-5-14

10^#

發表於 2011-10-4 12:53 | 只看該作者

回復 9# 偉婕

真好用!
感謝您無私的分享。

peter460191

TOP

偉婕

　暱稱: 偉婕

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 376
主題: 84
精華: 0
積分: 419
點名: 0
作業系統: Win 8
軟體版本: Office 2007
閱讀權限: 100
性別: 女
註冊時間: 2010-4-30
最後登錄: 2022-6-2

論壇貢獻勳章美女勳章熱烈參與勳章

9^#

發表於 2011-9-30 16:26 | 只看該作者

回復 8# peter460191

至母片,選取[標籤],按[屬性]將[BackStyle]改為[0-fmBackStyleTransparent](透明)

偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

TOP

peter460191

中學生 Rank: 2

帖子: 163
主題: 27
精華: 0
積分: 193
點名: 0
作業系統: winsows 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
註冊時間: 2010-12-20
最後登錄: 2025-5-14

8^#

發表於 2011-9-30 10:58 | 只看該作者

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

peter460191

TOP