Wie wird eine PowerPoint-Folie automatisch vorgerückt, nachdem eine Beendigungsanimation abgeschlossen ist?

Die mit "Start: Mit Vorheriger" erstellte PowerPoint-Eingangsanimation startet direkt, wenn eine neue Folie vorgerückt wird. Wenn Sie jedoch eine Exit-Animation auf dieselbe Weise einrichten, beginnt sie nicht mit einer Folienendsequenz. Stattdessen muss der Auslöser "Start: Ein Klick" verwendet werden, und nachdem Ihre Exit-Animation abgeschlossen ist, benötigen Sie noch einen zusätzlichen Klick, um zur nächsten Folie zu gelangen .

Umgehung dieses Problems liegt auf der Hand: Erstellen Sie eine duplizierte Folie, erstellen Sie aus der Originalfolie eine Endanimation, die auf der Duplikatfolie als Startanimation dient, und lassen Sie sie mit dem gewünschten Element folgen, oder erstellen Sie eine Übergangsfolie mit diesen Endanimationen, und richten Sie sie ein "Vorlauffolie ändern -> Automatisch nach -> [die Zeit, die Ihre Animationen zum Abschluss benötigen]".

Diese Problemumgehungen machen es für Ihr Publikum visuell. Dies hat jedoch Auswirkungen auf die Folienzahlen, die Sie möglicherweise anpassen und / oder Inhaltsänderungen duplizieren müssen. Wenn Sie der einzige sind, der Ihre Präsentation erstellt und verwendet, ist dies möglicherweise gut. Wenn Sie jedoch gemeinsam mit drei anderen Personen eine Präsentation im kollaborativen Modus erstellen und nicht einmal wissen, wer am Ende der Moderator sein wird, können Sie die Dinge vermasseln.

Seien wir konkret: Die meisten meiner Folien verfügen über eine 0,2s-Einstiegsanimation für Inhaltsblöcke, die von rechts, unten oder links kommen. Um zur nächsten Folie zu gelangen, möchte ich, dass sie in einer weiteren 0,2s-Ausgangsanimation herausfliegen, gefolgt von einer neuen 0,2s-fly-Einstiegsanimation der neuen Blöcke. Das Vertauschen der Blöcke sollte wie üblich beim Weiterschalten zur nächsten Folie ausgelöst werden.
Wie bereits erwähnt, kann ich dies nicht ohne einen zusätzlichen Klick zwischen den Folien erreichen.

Ich habe ein VBA-Skript geschrieben, das zusammen mit einer Exit-Animation beginnen sollte und nach 0,3 Sekunden automatisch eine Folie vorschieben wird, wenn die Exit-Animation beendet ist. Auf diese Weise sollte ich die zusätzlichen Klicks beseitigen, die gerade benötigt werden.

Sub nextslide() iTime = 0.3 Start = Timer While Timer < Start + iTime DoEvents Wend With SlideShowWindows(1).View .GotoSlide (ActivePresentation.SlideShowWindow.View.Slide.SlideIndex + 1) End With End Sub 

Es funktioniert gut, wenn es an einer Box, einem Button oder einem anderen Objekt gebunden ist. Ich kann es jedoch nicht mit einem einzigen Klick (irgendwo auf der Folie) ausführen, so dass es zusammen mit dem Exit-Animationsauslöser gestartet werden kann. Das Erstellen einer großen transparenten rechteckigen Form über die gesamte Folie und das Binden des Makros darauf ist auch nicht hilfreich. Durch Anklicken wird nur das Makro ausgeführt, die Exit-Animation wird nicht ausgelöst.
Jedenfalls möchte ich das Makro nicht an ein anderes Problemumgehungsobjekt binden, sondern an die Folie selbst.

Jeder weiß, wie ein PowerPoint-VBA-Skript beim Onclick-Ereignis der Folie ausgelöst wird?
Jeder kennt eine geheime Einstellung, durch die die Exit-Animation wie erwartet funktioniert, dh sie wird direkt vor dem Beenden einer Folie animiert, während sie zur nächsten übergeht.
Kann jeder diesen Drachen besiegen?

Vielen Dank!