Share via

How to delete all the animations in a presentation

Anonymous
2010-10-20T01:47:08+00:00

heyehy

how do I delete all animations i have put on for the past 200 slides.

k.thanks.bye

Microsoft 365 and Office | PowerPoint | For home | Windows

Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.

0 comments

Answer accepted by question author

Anonymous
2010-10-20T01:54:22+00:00

Hi,

You can turn off the animations by going to Setup Slide Show and underShow Options tick the Show without animation option and clickOK. Now run the show and it will display without the animations.

If you really want to delete all the animations in a single sweep then you will need to run this macro.

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

Regards, Shyam Pillai. http://skp.mvps.org

Was this answer helpful?

60+ people found this answer helpful.
0 comments

28 additional answers

Sort by: Most helpful
Most helpful Newest Oldest
  1. Anonymous
    2013-09-06T19:28:35+00:00

    maybe this then:

    Sub zapsound()

    Dim osld As Slide

    Dim oeff As Effect

    For Each osld In ActivePresentation.Slides

    For Each oeff In osld.TimeLine.MainSequence

    If oeff.EffectInformation.SoundEffect.Type <> ppSoundNone Then _

    oeff.EffectInformation.SoundEffect.Type = ppSoundNone

    Next oeff

    Next osld

    End Sub

    Was this answer helpful?

    5 people found this answer helpful.
    0 comments
  2. Anonymous
    2013-09-06T14:25:33+00:00

    I lied.  It does shrink the filesize.  What I'm looking for is to remove just the sound and leave the animations.

    Was this answer helpful?

    0 comments
  3. Anonymous
    2013-09-06T14:18:40+00:00

    Great Script.  This is the closest to what I am looking for.  I would like to remove all audio from animations but leave the animations there.

    When I run this script it removes all animations which is what it was designed to do, but the file size doesn't shrink like when I remove the animations (containing sound cues) through the GUI.  I've looked through the developer material, but can't figure out how to reference the soundeffect to delete it.  I tried

    ActivePresentation.Slides(I).Shapes(J).AnimationSettings.SoundEffect.Delete

    but that didn't work...

I'm quite green at all of this...

    Was this answer helpful?

    0 comments
  4. Anonymous
    2013-08-27T13:08:07+00:00

    Just ran across this and your script works perfectly. Thank you for the post!

    Was this answer helpful?

    0 comments