Timer in Folienmaster läuft nicht in Präsentation
Hallo zusammen,
ich bekam heute beiläufig so ne Aufgabe hingelegt und dachte mir so "och jo gleich mal vor dem Wochenende noch bei schauen", denn ich hatte dazu schon eine Idee.
Leider läuft die Idee nicht so wie ich mir das vorstelle.
In einer Präsentation soll ein Countdown laufen der runterzählt zu einem Datum XY.
Die Präsentation wird nachher vermutlich ausschließlich aus Bildern bestehen, der Timer wäre also ein Overlay.
Ich dachte mir ich mach mir mal testweise 3 Rechtecke auf dem Folienmaster und haue da mal Monat, Tag und Stunden:Minuten:Sekunden rein.
Das läuft auch super, bis die Präsentation gestartet wird, dann findet Powerpoint die Objekte wohl nicht mehr:
Die Methode 'Text' für das Objekt 'TextRange' ist fehlgeschlagen
Jemand eine spontane Idee?
Ich will das Rad ja nicht neu erfinden... ggf. geht das über den Folienmaster ja auch gar nicht?
Grüße
ToWa
ich bekam heute beiläufig so ne Aufgabe hingelegt und dachte mir so "och jo gleich mal vor dem Wochenende noch bei schauen", denn ich hatte dazu schon eine Idee.
Leider läuft die Idee nicht so wie ich mir das vorstelle.
In einer Präsentation soll ein Countdown laufen der runterzählt zu einem Datum XY.
Die Präsentation wird nachher vermutlich ausschließlich aus Bildern bestehen, der Timer wäre also ein Overlay.
Ich dachte mir ich mach mir mal testweise 3 Rechtecke auf dem Folienmaster und haue da mal Monat, Tag und Stunden:Minuten:Sekunden rein.
Sub timer()
Dim future As Date
future = "01.08.2023 06:00"
Do Until future < Now()
ActivePresentation.SlideMaster.Shapes("month").TextFrame.TextRange = Format(future - Now(), "mm")
ActivePresentation.SlideMaster.Shapes("day").TextFrame.TextRange = Format(future - Now(), "dd")
DoEvents
ActivePresentation.SlideMaster.Shapes("timer").TextFrame.TextRange = Format(future - Now(), "hh:nn:ss")
Loop
End Sub
Das läuft auch super, bis die Präsentation gestartet wird, dann findet Powerpoint die Objekte wohl nicht mehr:
Die Methode 'Text' für das Objekt 'TextRange' ist fehlgeschlagen
Jemand eine spontane Idee?
Ich will das Rad ja nicht neu erfinden... ggf. geht das über den Folienmaster ja auch gar nicht?
Grüße
ToWa
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-Key: 3887794681
Url: https://administrator.de/contentid/3887794681
Ausgedruckt am: 04.05.2024 um 19:05 Uhr
2 Kommentare
Neuester Kommentar
Hallo,
Dobby
Jemand eine spontane Idee?
- Logitech R400 LASER PRESENTATION REMOTE
- Logitech SPOTLIGHT PRESENTATION REMOTE
Dobby