Hallo zusammen,

ich würde gerne eine Power Point erstellen, die endlos läuft und einen countdown halbstündlich synchronisiert mit der aktuellen Systemzeit runterzählt.

In VB 6 und . NET kein Problem. Ich bekomme es allerdings nicht hin, dass Timer Steuerelemt im PPT VBA Makro einzubinden

Hat jemand eine Idee?

-----------------------

Sprich soll in etwa so aussehen:

Timer interall auf 1 sekunde

buszeit_anzeigen (time(now))

Private Sub buszeit_anzeigen(zeit As String)
Dim minutenuhrzeit As Integer
Dim minuten_bus As Integer

minutenuhrzeit = Mid(zeit, 4, 2)

If minutenuhrzeit < 30 Then
minuten_bus = 30 - minutenuhrzeit
Else
minuten_bus = 60 - minutenuhrzeit
End If