Animation/Sound in Powerpoint per VBA starten

Ja, jetzt habe ich verstanden um was es geht. Das ist in der Tat sehr ärgerlich, was richtig passendes fällt mir dazu auch nicht ein. Nur 2 Ausweichmöglichkeiten: Du könntest die Animationen vorübergehend deaktivieren, müsstest sie dann aber später wieder
einschalten (Du hast ja mehrere Makros). Der Code wäre:

ActivePresentation.Slides(5).Shapes("Antwort3").AnimationSettings.Animate = msoFalse

(kann in die With Klammer mit aufgenommen werden, passende Stelle wäre zu testen)

Für die gesamte Präsentation:

ActivePresentation.SlideShowSettings.ShowWithAnimation = msoFalse

Wenn dir die Wiederholung der Animationen nichts ausmacht, kannst du sie simulieren. Entweder mit der AdvanceMode-Eigenschaft des AnimationSettings-Objekts (muss spätestens bei Aufruf der nächsten Frage ebenfalls zurück gesetzt werden), oder ganz einfach
mit dem SendKeys-Befehl: SendKeys "{ENTER}" sendet das einmalige Drücken der Eingabetaste an die Anwendung, SendKeys "{ENTER 3}" tut es 3 mal hintereinander. Ich würde AdvanceMode schon allein wegen des Show-Effekts bevorzugen, das hat etwas, wenn die Auflösung
der Frage erst nach einigen Sekunden erscheint.

Wie sich SlideShowWindows(1).Activate in Bezug auf die Animationen verhält weiss ich nicht genau. Aus der Beschreibung geht das nicht hervor, jedoch hat mir in einem anderen Zusammenhang (Einfrieren des Fensters bei einem zeitgesteuerten Makro) der Befehl
mal sehr geholfen.

Das wäre im Moment alles was mir dazu einfällt.

MfG

Hallo Gerrax,

obwohl ich eine Gruppierung animiert habe, was dein Sub test() auch bestätigt (Es wird eine 3 angezeigt, weil 3 Gruppierungen auf der Folie sind), funktioniert die erste Variante nicht.

Die zweite Variante dagegen funktioniert sowohl bei gruppierten, als auch bei nicht gruppierten Objekten.

(Die Zahl in der Klammer hinter Item gibt dabei an, an welcher Stelle die Animation im Animationsbereich steht. Das Objekt kann nicht namentlich angesprochen werden, was aber auch nicht nötig ist.)

Mein Problem ist also jetzt gelöst!!!

Ich bedanke mich vielmals für deine Hilfe und die vielen Antworten



P.S.: Ich würde mich natürlich trotzdem darüber freuen, von dir zu hören, wenn du die besagte effizientere Lösung gefunden hast.

Hallo Gerrax,

ich weiß, ich sollte eigentlich von weiteren Nachfragen absehen.

Da ich die Präsentation aber in einer Woche benötige und ich der Lösung des Problems ein ganzes Stück näher gekommen bin, muss ich dich doch noch einmal kontaktieren.

Ich habe folgende "Notlösung" gefunden:

Wenn man als Animation "Einfliegen" anstatt "Hereinschweben" verwendet, wird es nicht auf "Erscheinen" zurückgesetzt und durch das Gruppieren passt jetzt auch die Reihenfolge und alle Animationen werden beim Klicken ausgeführt.

Das einzige Problem, das noch bleibt, ist, dass die Animationsdauer immer auf 0,5 Sekunden gesetzt wird, egal ob sie vorher größer oder kleiner war.

Wenn du also auf folgende Frage(n) eine Antwort hast, wäre das Problem vollständig gelöst und du müsstest nichts aufwändig in einer anderen Präsentation nachstellen:

1. Kann man die Animationsdauer nachträglich wieder auf einen anderen Wert setzen?

(2. Gibt es bei

ActivePresentation.Slides(5).Shapes("Antwort3").AnimationSettings.AdvanceMode=ppAdvanceOnClick

auch eine Möglichkeit für "mit vorherigem beginnen"?)

Vielen Dank für deine Geduld und Hilfe

Hallo Gerrax,

der erste Vorschlag, die Animationen vorübergehend zu deaktivieren, gefällt mir sehr gut, ich habe aber bei der Umsetzung folgendes Problem:

1. ActivePresentation.Slides(5).Shapes("Antwort3").AnimationSettings.Animate = msoFalse

Der Befehl funktioniert perfekt und auch an der richtigen Stelle, wenn ich ihn aber mit
msoTrue wieder rückgängig machen möchte, starten die Animationen nicht mehr beim Klicken, sondern automatisch nacheinander und mit einer gewissen Verzögerung, die im Animationsmenü aber nicht angezeigt wird

2. ActivePresentation.SlideShowSettings.ShowWithAnimation = msoFalse

Dieser Befehl funktioniert und man kann ihn mit msoTrue auch wieder rückgängig machen, aber er startet nie an der richtigen Stelle:

- Wenn man ihn hinter Sub Makroname() schreibt, tritt er gleich bei Präsentationsstart ein, obwohl das Makro noch gar nicht gestartet wurde

- Wenn man ihn hinter If ... Then schreibt, funktioniert er nicht, auch wenn die Bedingung erfüllt ist

- Und wenn man ihn während der Präsentation mit einem Button startet, passiert auch nichts

Ich hoffe du kannst mir auch dieses Mal weiter helfen und bedanke mich für deine Bemühungen

Hallo Tiger171,

es freut mich zu lesen, dass der ursprüngliche Code etwas zur Lösung beigetragen hat. Was jetzt beim Import einer „auswärtigen“ Sounddatei "zurückgesetzt" wird und warum, kann ich aus der Ferne nicht beurteilen. Dein Code ist jedenfalls korrekt und vielleicht
gelingt es mir irgendwann, den Effekt in der heruntergeladenen Präsentation nachzustellen. Die ist ja sehr aufwändig konstruiert, ich habe bis jetzt nur einen ganz groben Überblick über den Ablauf gewinnen können. Vielleicht solltest du das Soundfile mal probehalber
standardmäßig im Aktionsdialog zuweisen, um zu überprüfen ob der unerwünschte Effekt auch dann eintritt. Wenn nicht, liegt es am Befehl "Play" und man müsste sich eine Umgehungsvariante einfallen lassen, die dafür sorgt dass die Sounddatei schon vorher zugewiesen
und dann bei Auswahl der Anwort automatisch abgespielt wird. Das wird insofern schwierig, da du ja angibst, das Textfeld könne beide Zustände (Antwort richtig/falsch) annehmen. Ich habe auch ergebnislos versucht, ein eigenes Soundfile in den Ordner Office14/Media
(da sind die Standardklänge von PP drin) zu kopieren. Der Klang erscheint nicht in der Auswahl von PP, das war zu erwarten, er müsste wohl erst in der Registrierung erfasst werden und das ist mir zu aufwändig.

Ich denke, der Thread kann abgeschlossen werden. Ich bedanke mich für die Rückmeldung und bitte noch um Markierung der Lösung als Antwort.

Mit freundlichen Grüßen