返回列表 上一主題 發帖

陽春投影片懸浮書籤製作(VBA)

空白的樂章

帖子
12 
主題
2 
精華
0 
積分
58 
點名
0  
作業系統
win10 
軟體版本
2016 
閱讀權限
20 
註冊時間
2017-6-13 
最後登錄
2018-7-26 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2017-9-24 11:16 | 只看該作者

陽春投影片懸浮書籤製作(VBA)

----前情提要----
學生時期常常很多時候念書都用上課的PPT念，
動輒就一百多頁，我總是想如果PPT也能加入書籤那該有多好，
直接跳到重點頁面，
不用做一頁超連結，不用一直返回這一頁，
直接懸浮在投影片放映的畫面
剛好之前學會了用excel VBA寫表單
就來試試看寫用在PPT上(爬了好多文，PPT的程式語言好難理解)

下面是實際效果
在第一頁放一個按鈕呼叫表單(寫入VB語言    XXX.show 0  設為非強制回應)
這樣他就會一直懸浮，點下對應的按鈕就可以快速跳頁


那比較麻煩的是設定跳頁，這裡我爬了好多文才找適合的
將表單按鈕設定好後，進入表單程式碼手動輸入對應程式如下




然後就大功告成了

不過還是有很多麻煩的地方，
要手動建立button，手動key程式碼跟頁碼
不知道有沒有辦法設定，譬如，現在看到第15頁
案一個按鈕就自動在表單加入一個button並設定跳到15頁
這樣就完美了
收藏 分享

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
返回列表 上一主題