Почему таймер обратного отсчета останавливается при установке в SlideMaster? - PullRequest
Новая
       11

Почему таймер обратного отсчета останавливается при установке в SlideMaster?

0 голосов
/ 24 мая 2019

Я использовал следующий код для обратного отсчета, который охватывал бы 10 слайдов в режиме слайд-шоу.Я поместил фигуры в макет SlideMaster. 

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.

Есть ли другой способ выполнить обратный отсчеткоторый охватывает несколько слайдов?

...