How can we improve SlideProof?

Remove slide transitions and shape\image animations

With a click of a button to remove 1) all slide transitions and 2) image animations.

3 votes
Sign in
Check!
(thinking…)
Reset
or sign in with
  • facebook
  • google
    Password icon
    Signed in as (Sign out)

    We’ll send you updates on this idea

    Matt shared this idea  ·   ·  Flag idea as inappropriate…  ·  Admin →

    5 comments

    Sign in
    Check!
    (thinking…)
    Reset
    or sign in with
    • facebook
    • google
      Password icon
      Signed in as (Sign out)
      Submitting...
      • Matt commented  ·   ·  Flag as inappropriate

        Hi, i'm using this Macro to remove 1) animations on slides 2) slide transitions

        Sub RemoveTransAndAnimations()Dim osld As SlideDim i As IntegerFor Each osld In ActivePresentation.Slides'Remove AnimationsWith osld.TimeLine.MainSequenceFor i = .Count To 1 Step -1.Item(i).DeleteNext iEnd With'Remove triggersFor i = osld.TimeLine.InteractiveSequences.Count To 1 Step -1For t = osld.TimeLine.InteractiveSequences(i).Count To 1 Step -1osld.TimeLine.InteractiveSequences(i).Item(t).DeleteNext tNext i'Remove transitionsosld.SlideShowTransition.EntryEffect = ppEffectNone' Remove Master Slide animationsWith osld.Design.SlideMaster.TimeLine.MainSequenceFor i = .Count To 1 Step -1.Item(i).DeleteNext iEnd With' Remove Master Slide Transitionsosld.Design.SlideMaster.SlideShowTransition.EntryEffect = ppEffectNoneNext osld
        End Sub

      • Rasmus commented  ·   ·  Flag as inappropriate

        "Remove all animations from all slides” - would that be possible with "tools" in SlideProof?

      • Matt commented  ·   ·  Flag as inappropriate

        For the people who run into this question, i use this macro to remove the transitions and animations.

        Sub RemoveTransAndAnimations()
        Dim osld As Slide
        Dim i As Integer
        For Each osld In ActivePresentation.Slides
        'Remove Animations
        With osld.TimeLine.MainSequence
        For i = .Count To 1 Step -1
        .Item(i).Delete
        Next i
        End With
        'Remove triggers
        For i = osld.TimeLine.InteractiveSequences.Count To 1 Step -1
        For t = osld.TimeLine.InteractiveSequences(i).Count To 1 Step -1
        osld.TimeLine.InteractiveSequences(i).Item(t).Delete
        Next t
        Next i

        'Remove transitions
        osld.SlideShowTransition.EntryEffect = ppEffectNone
        ' Remove Master Slide animations
        With osld.Design.SlideMaster.TimeLine.MainSequence
        For i = .Count To 1 Step -1
        .Item(i).Delete
        Next i
        End With
        ' Remove Master Slide Transitions
        osld.Design.SlideMaster.SlideShowTransition.EntryEffect = ppEffectNone
        Next osld

        End Sub

      Feedback and Knowledge Base