VBA, Powerpoint 2013, fjern alle Transitions, overgange, animationer

Den lette løsning er at fravælge det i opsætningen:

På fanen Diasshow vælges 'Indstil diasshow'
Sæt flueben i feltet 'Vis uden animationer'

Hvis du vil have alle animationer fjernet permanent fra præsentationen kan denne makro gøre det:

Sub StripAllBuilds()
    Dim I As Integer: Dim J As Integer
    Dim oActivePres As Object
    Set oActivePres = ActivePresentation
    With oActivePres
        For I = 1 To .Slides.Count
            If Val(Application.Version) < 10 Then
                ' Older versions of PowerPoint 97/2000
                ' In each slide set the animation property
                ' of the Shape object to FALSE
                For J = 1 To .Slides(I).Shapes.Count
                    .Slides(I).Shapes(J).AnimationSettings.Animate = msoFalse
                Next J
            Else
              ' New versions support the Timeline object
                For J = .Slides(I).TimeLine.MainSequence.Count To 1 Step -1
                    .Slides(I).TimeLine.MainSequence(J).Delete
                Next J
            End If
        Next I
    End With
    Set oActivePres = Nothing
End Sub

Tak skal du have Erik.
har du noget, der fjerner alle effekter?

Husk dine point, by the way. :-)

Hvad får du ikke fjernet med ovennævnte kode?

Der er en overgang imellem dias. Der forsinker skiftet.
Så når jeg bladrer er det noget grafik-pop, som jeg kan fjerne manuelt. Men det kunne være fedt, hvis det kunne gøres enkelt.