Hi,

New user here with little VBA macro code experience. I'm struggling with modifying the excellent code from TheSpreadshhetGuru that removes all my animations.

I would like the macro to also remove all transitions in my Powerpoint and set manual advance. I google some code, but struggling to tie it into the code from TSG? Any help would be appreciated:-)

.SlideShowTransition.EntryEffect = ppEffectNone
.SlideShowTransition.AdvanceOnTime = msoFalse



Sub RemoveAllAnimations()
'PURPOSE: Remove All PowerPoint Animations From Slides
'SOURCE: www.TheSpreadsheetGuru.com/the-code-vault

Dim sld As Slide
Dim x AsLong
Dim Counter AsLong

'Loop Through Each Slide in ActivePresentation
ForEach sld In ActivePresentation.Slides

'Loop through each animation on slide
For x = sld.TimeLine.MainSequence.Count To 1 Step -1

'Remove Each Animation
          sld.TimeLine.MainSequence.Item(x).Delete

'Maintain Deletion Stat
          Counter = Counter + 1

Next x

Next sld

'Completion Notification
MsgBox Counter & " Animation(s) were removed from you PowerPoint presentation!"

EndSub