PPT 删除切换动画与动画效果

单位弄的统一PPT花里胡哨一堆动画效果和动画切换，写个代码删除。

Sub 删除切换与动画()
    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