为什么倒数计时器放置在 SlideMaster 中时会冻结？

Question

我使用以下代码进行倒计时，在幻灯片放映模式下，该倒计时将跨越 10 张幻灯片。我将形状放置在 SlideMaster Layout 中。

Set QS = ActivePresentation.Designs(2).SlideMaster.CustomLayouts(2)
Dim Seconds As Integer
Seconds = 30
QS.Shapes("Counter").TextFrame.TextRange = Seconds

For i = 1 To 30
   Dim WAIT As Double
   WAIT = Timer
   While Timer < WAIT + 1
        DoEvents  
   Wend
        Seconds = Seconds - 1
        QS.Shapes("Counter").TextFrame.TextRange = Seconds
Next i

Dim time As Date
Dim count As Integer

time = Now()
count = 30

time = DateAdd("s", count, time)

Do Until time < Now
DoEvents

With ActivePresentation.Designs(2).SlideMaster.CustomLayouts(2).Shapes("Counter").TextFrame.TextRange
.Text = Format((time - Now()), "hh:mm:ss")
End With
Loop

如果它们没有放置在 SlideMaster Layout 中，这两个代码都可以正常工作。

有没有更好的方法来跨多张幻灯片进行倒计时？

Answer 1

有一种更好的方法来显示倒计时Format (Now(), "hh:mm:ss")

要创建倒计时，我们需要两个值：

1. 当前时间
2. 未来倒计时结束的时间

Dim time As Date
Dim count As Integer

time = Now() 'the current time
count = 30
time = DateAdd("s", count, time) 'the future time after 30 seconds

上面给了我们两个值。

现在，我们可以创建一个循环来更改形状内的文本Counter。

Do Until time < Now() 'We change text until the present time passes the set "future time"
DoEvents

For i = 1 To 10 'Assuming you want the countdown in slides 1 To 10
   With ActivePresentation.Slides(i).Shapes("countdown").TextFrame.TextRange
   .Text = Format((time - Now()), "hh:mm:ss")
   End With
Next i

Loop

您可以使用它来跨多张幻灯片进行倒计时。