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 00:00:00 do 00:30:00 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