La unidad unificó campanas y silbatos PPT de efectos de animación y cambio de animación, escriba un código para eliminar.
Sub Eliminar Interruptor y Animación ()
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
Establezca seq = sld.TimeLine.MainSequence
For i = seq.Count To 1 Step -1
seq.Item (i) .Eliminar
Siguiente i
Siguiente sld
Fin con
Establecer pre = Nada: Establecer sld = Nada: Establecer seq = Nada: Establecer eff = nada
End Sub