Sie haben sich ver-animiert? Das kann schon einmal passieren. Wenn’s öfter passiert und Sie einfach ab und zu von vorne anfangen möchten, dann hilft Ihnen ein Makro weiter, das Sie z.B. in Ihre Schnellzugriffsleiste integrieren können:
'Del_Animations löscht alle Animationen der gesamten aktuellen Präsentation. Sichern Sie vorher! Sub Del_Animations() Dim myPres As Presentation Dim mySld As Slide Dim ISeq As Integer Dim ITrig As Integer Set myPres = ActivePresentation 'proceed through all the slides For Each mySld In myPres.Slides 'Remove animations For ISeq = mySld.TimeLine.MainSequence.Count To 1 Step -1 mySld.TimeLine.MainSequence(ISeq).Delete Next ISeq 'Remove triggers For ISeq = mySld.TimeLine.InteractiveSequences.Count To 1 Step -1 For ITrig = mySld.TimeLine.InteractiveSequences(ISeq).Count To 1 Step -1 mySld.TimeLine.InteractiveSequences(ISeq).Item(ITrig).Delete Next ITrig Next ISeq Next mySld Set mySld = Nothing Set myPres = Nothing End Sub
Sie sind nun hoffentlich nicht allzu überascht, dass man in PowerPoint genauso programmieren kann wie in Excel oder Word … nur Makrorecorder gibt’s keinen, ist alles Handarbeit 🙂