Hallo,
ich versuche momentan auf PowerPoint 3Countdowns zu programmieren.
- Der erste Countdown soll von 45 Sekunden auf 0 zählen und sobald das fertig ist,
- soll der zweite Countdown von 15 Sekunden auf 0 zählen.
Pro durchlauf soll es noch ein countdown zähler geben der immer mit zählt sobald beide Countdowns durchgelaufen sind. Das alles soll nach 30 Durchgänge aufhören. Es soll auch noch ein Stop und Fortsetzen Button geben.
Meine Code:
Sub countDown()
Dim time As Date
Dim count As Integer
time = Now()
count = 45
time = DateAdd("s", count, time)
Do Until time < Now()
DoEvents
With ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange
.Text = Format((time - Now()), "ss")
End With
Loop
End Sub
Allerdings sind meine VBA-Kenntnisse leider nicht gut genug. Wie bekomme ich diesen Code für 2 bzw 3 Countdowns hin?.
|