PPT delete switching animation and animation effects

The unity unified PPT bells and whistles of animation effects and animation switching, write a code to delete. 

Sub Delete Switch and Animation () 
    Dim sld As Slide, pre As Presentation 
    Dim seq As Sequence, eff As Effect 
    Set pre = Application.ActivePresentation 
    With pre 
        For Each sld In .Slides 
            sld.SlideShowTransition.EntryEffect = ppEffectNone 
            For Each seq In sld. TimeLine.InteractiveSequences 
                For i = seq.Count To 1 Step -1 
                    seq.Item (i). Delete 
                Next i 
            Next 
            Set seq = sld.TimeLine.MainSequence 
            For i = seq.Count To 1 Step -1 
                seq.Item (i) .Delete 
            Next i 
        Next sld 
    End With
    Set pre = Nothing: Set sld = Nothing: Set seq = Nothing:Set eff=nothing
End Sub