Witam,
Korzystając z tutka: chciałem stworzyć timer który będzie odliczał mi czas od chwili rozpoczęcia prezentacji - na ustalony czas np. 30 min.

I aby ten blok z czasem wyświetlał się przez wszystkie slajdy. Może być, że czas leci od 0000 do 0000 np. . .
Szukałem takich rozwiązań ale nic nie widzę.

Zrobiłem zgodnie z tutkiem plik PowerPoint ale nie działa - nic się nie wyświetla na bloku. Ale to pewnie nie rozwiąże problemu by czas leciał po kilku slajdach, prawda? Ma ktoś na to pomysł.

Plik: https://megawrzuta.pl/download/c41ed8338ff3dc1a834ef5c7e66ef27c.html

Załączam plik który przepisałem:

Kod:

Sub count()
Dim time As Date
Dim count As Integer

time = Now()
count = 120

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

Do Until time < Now()
DoEvents

With ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text = Format((time - Now()), "hh:mm:ss")
End With

Loop


End Sub