Tipps und Tricks rund um PowerPoint
Alle Animationen löschen
Es gibt keinen Standardbefehl, um alle Animationen zu löschen. Pro Folie kann man es nur von Hand machen: alle Animationen im Aufgabenbereich "Animationsbereich" markieren und ENTF drücken. Bei vielen Folien wird das sehr mühsam.
Als Notbehelf kann die Präsentation ohne Animation gezeigt werden - damit werden die Animationen nicht gelöscht, nur nicht verwendet. Sie finden den Befehl unter "Bildschirmpräsentation / Bildschirmpräsentation einrichten / Präsentation ohne Animation".
Um alle Animationen aus allen Folien einer Präsentation zu entfernen, können Sie das folgende Makro verwenden (es funktioniert sicher für PowerPoint 2003 bis 2010):
Public Sub DeleteAnimation()
Dim anzSlide, thisSlide, anzElement, thisElement As Integer
anzSlide = ActivePresentation.Slides.Range().Count
For thisSlide = 1 To anzSlide
anzElement = ActivePresentation.Slides.Range(thisSlide).Shapes.Count
For thisElement = 1 To anzElement
With ActivePresentation.Slides(thisSlide).Shapes(thisElement).AnimationSettings
.TextLevelEffect = ppAnimateLevelNone
End With
Next
Next
ActivePresentation.Slides(1).Select
End Sub
Kopieren Sie das Makro und rufen Sie in der Präsentation das Register "Entwicklertools" auf, klicken Sie auf "Visual Basic", löschen Sie die zwei Textzeilen und kopieren Sie den Code in das Modul-Blatt. Dann klicken Sie im Visual-Basic-Editor auf "Sub/User-Form ausführen" oder drücken Sie F5.
Anschließend können Sie das Visual-Basic-Editor-Fenster schließen. Wenn Sie die Präsentation mitsamt dem Makro speichern wollen, müssen Sie den Dateityp "PowerPoint-Präsentation mit Makro *.pptm" wählen.
Um die Animation nur der aktuellen Folie zu löschen, dient dieses Makro:
Sub DeleteAnimationSlide()
For thisElement = ActiveWindow.View.slide.Shapes.Count To 1 Step -1
ActiveWindow.View.slide.Shapes(thisElement).AnimationSettings.TextLevelEffect = ppAnimateLevelNone
Next thisElement
End Sub
13.01.2013