Nix für ungut.....  

Hab das hier gefunden und ausprobiert - FUNZT

----------------------------------------------------------------
Public Sub AnimationenLöschen()
\'
\' Löscht alle benutzerdefinierten Animationen innerhalb einer PPT
\'
Dim nFolie, varFolie, varObkjet, nObjekt As Integer
nFolie = ActivePresentation.Slides.Range().Count
For varFolie = 1 To nFolie
nObjekt = ActivePresentation.Slides.Range(varFolie).Shapes.Count
For varObjekt = 1 To nObjekt
With ActivePresentation.Slides(varFolie).Shapes(varObjekt).AnimationSettings
.TextLevelEffect = ppAnimateLevelNone
End With
Next
Next
ActivePresentation.Slides(1).Select
End Sub