怎麼製作倒數100天的倒數計時ppt？

12-28

怎麼製作倒數100天的倒數計時ppt？如題，有什麼小軟體或者什麼技巧請求各位大神教教我。

最簡單實現——做100頁，每頁寫一個數字。

首先膜拜一下樓上用VBA解題的大神……唉，實在不會VBA，只能仰望。

看到題主這個問題之後，我並沒有第一時間回答，而是把由此想到的一些問題集合到一起，寫了一篇推文：一個你們都知道的故事。因為我個人覺得，題主提的問題其實是有待商榷的。大家有興趣可以點連接看看全文。順帶打個廣告，個人公眾號：Jesse1981（ID：pianoppt），歡迎大家訂閱。

下面是直接和本問題相關的部分段落：

雖說VBA的確可以實現題主提問的效果，但是大家不妨轉念想想，真的可能有誰會有題主提問的的這種需求嗎？

100天的倒計時，如果按上面的大神的回答，用VBA實現了的話，展現出來會是什麼一個效果呢？我想是這樣的：

在每天的23個小時零59分59秒的時間裡，這個PPT就像一張圖片一樣，一動不動的播放在那兒，就在夜深人靜，大部分人都已經睡覺了的時候，屏幕閃了一下，「100天」幾個字變成了「99天」……而為了每天的這一秒鐘，這台電腦要一直開在那兒，耗上24小時的電，什麼別的工作都不能做……而這樣的日子，要持續100天！！！！

我去！就算是不用付電費，也不能這麼任性啊！就算這麼任性，你就不能每天上班或者上學的時間讓第一個到辦公室、教室，打開電腦的那個同事或者同學，手動改一下數字再重新按一下F5？

難道大傢伙兒真的都懶到這份兒上了？

這個問題倒不難, 不過涉及到的點其實還挺多. 請施主看老衲思路如何.

1. 首先老衲想到的是要設定一個日期, 然後取出當前的日期, 計算之間相差多少天. 這裡面要涉及到日期操作.
a. 固定日期設定
b. 當前日期/時間獲取
c. 日期差值怎麼計算.

2. 將這個日期顯示在界面上.
a. 如何操作一個對象, 並改寫上面的文本.

3. 當Slide運行到這一頁的時候才運行前兩步的計算.
a. 如何監控一個slide的播放,
b. 並執行一個Sub

這就完成啦~~ Good Luck
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
-------------跳來跳去的分割線-------------

如果就這麼回答的話, 題主會不會三毒茂盛?~

現在來圖解一下, 化解三千戾氣.

1. 首先準備一個PPT空白文檔.
(無圖)

2. 在其中插入幾個對象, 例如兩個文本框, 一個圖形(調成無色無邊框, 所以看起來很像文本框)

3. 打開"開發工具" (不知道怎麼打開的請去翻老衲的Excel教程)

4. 點擊左上角的Visual Basic, 然後寫代碼

代碼的詳情:

Sub OnSlideShowPageChange() "Step3: Please note this event is very important Call RunRecord End Sub


Sub RunRecord()

"Claim

Dim finalDate As Date

Dim nowadays As Date

Dim timespan As Integer
"Step1: Calculate the number of days left

finalDate = DateSerial(2016, 5, 1)

nowadays = Now()

timespan = DateDiff("d", nowadays, finalDate)
"Step2: Show the number

Set myDocument = ActivePresentation.Slides(1)

myDocument.Shapes(1).TextFrame.TextRange.Text = timespan

End Sub

注意: 這個裡面的截至日期是2016年5月1日. 老衲隨便寫的.

5. 保存為支持宏的PPT.

6. 打開這個PPT, 然後運行一把(F5), 就可以看到天數變化了.

2016年1月19日到5月1日可能是103天吧. 具體就靠施主自己驗證一下了.