PPT倒數計時 VBA代碼哪裡錯了

PPT倒數計時 VBA程式碼哪裡錯了

改了兩處

第一行給你改了

為了幫助還沒過關的玩家們，讓我們一起來了解一下具體的解謎方法吧。另外，還有一個小技巧是在ActivePresentation.Slides(1)後面加了一個shape(1)。這個操作可以幫助你更快解開謎題，記得試試看。

測試可行

為了幫助還沒過關的玩家們，讓我們一起來了解一下具體的解謎方法吧。同時，我們可以使用SetTimer函數來設定定時器，該函數位於user32庫中。這個函數接受四個參數：視窗句柄（hwnd）、定時器ID（nIDEvent）、間隔時間（uElapse）和定時器回呼函數（lpTimerFunc）。透過呼叫這個函數，我們可以在一定的時間間隔內執行特定的操作。

Sub Timer()

為了幫助玩家解決問題，我們可以使用以下程式碼來計算目前時間和指定日期之間的秒數差：`ss = DateDiff("s", Now, "2012-3-22 00:00:00 ")`。這段程式碼將傳回一個整數值，表示目前時間和指定日期之間相差的秒數。

dd = ss \ 86400

hh = (ss Mod 86400) \ 3600

mm = (ss Mod 3600) \ 60

ss = ss Mod 60

ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text = ＂距2012年考試還有＂ & vbCrLf & dd & ＂天＂ & hh & ＂小時＂ & mm & dd & ＂天＂ & hh & ＂小時＂ & mm & ＂分鐘＂ ss & ＂秒＂

End Sub

Sub Start()

ActivePresentation.SlideShowSettings.Run

#SetTimer 0, 0, 1000, AddressOf Timer

End Sub

PPT上倒記時間如何設定

1、開啟PPT，選擇「插入」－「形狀」－「圓形」（畫圓的同時按住shift鍵）。

#2、設定所畫圓形的的填滿背景色和邊框（選擇圓形，右鍵選擇“設定形狀格式”，或直接用“填滿”、“輪廓”功能設定。），然後在圓形中填寫數字。

##3、設定動畫，選擇所畫形狀（將圓形和數字組合在一起）——選擇動畫——添加動畫——選擇進入動畫為「出現」——選擇退出動畫為「消失」。然後設定“開始”選項為“上一動畫之後”，延遲時間為0.5秒。

##4、之後將所畫形狀進行複製，貼上4個相同的圓形（其動畫屬性也同時被複製貼上），並將圓形中的數字改為4、3、2、1。

#5、設定五個數字的對其格式。選取五個形狀，在「格式」－「對齊」下依序選擇「左右居中」和「上下居中」。

#6、上述步驟做完之後，五個形狀“合五為一”，然後選擇播放按鈕，即可查看從5——1的動態倒數效果。

#

以上是PPT倒數計時 VBA代碼哪裡錯了的詳細內容。更多資訊請關注PHP中文網其他相關文章！