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
(thinking…)
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
(thinking…)
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