Startseite

Outlook | Excel | Word | PowerPoint | Adobe Acrobat CD | Blog

XING | Facebook |


Pia Bork
Training, Support, Coaching für Office und Filesite

Impressum und Datenschutz

Creative Commons License  

Tipps und Tricks rund um PowerPoint

A B C D E F G H I/J K
L M N O P/Q R S T U-W X-Z

 

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

Entwicklertools

Wenn das Register nicht angezeigt wird, dann klicken Sie zuerst auf "Datei / Optionen / Menüband anpassen" und aktivieren die Entwicklertools.