Makro für pp
frank
das passt zwar nicht ganz ins forum aber vielleicht kann mir wer weiterhelfen
hab einen code gefunden mit dem man alle animationen einer pp löschen kann.
kann man den code dahingehend umändern das nur die animationen in der aktiven folie gelöscht werden?
danke
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