Re: PowerPoint kérdések

[Nits László]

Kicsit "megfésülve" a VB kód, vigyázz mert minden diáról töröl:

Sub Töröl1()
    For I = 1 To ActivePresentation.Slides.Count
        'Animációk törlése (Csak PowerPoint 2010):
        For J =
ActivePresentation.Slides(I).TimeLine.MainSequence.Count To 1 Step -1
            ActivePresentation.Slides(I).TimeLine.MainSequence(J).Delete
        Next J
        'Áttűnések törlése:
        ActivePresentation.Slides(I).SlideShowTransition.EntryEffect =
ppAnimateLevelNone
    Next I
End Sub