removing animations?

[Geoff Cox]

Hello,

Do I have any of the following right?

1. Shyam's code will remove animations from all slides but will not
touch the slide master.

Dim I As Integer: Dim J As Integer
For I = 1 To .Slides.Count
For J = .Slides(I).TimeLine.MainSequence.Count To 1 Step -1
.Slides(I).TimeLine.MainSequence(J).Delete
Next J
Next I

2. Slide master animations can be removed using the Animation Schemes
/ No animation.

3. I assume VBA can be used to carry out (2) above. What would this
be?!

Cheers

Geoff

 

[Geoff Cox]

2. Slide master animations can be removed using the Animation Schemes
/ No animation.

3. I assume VBA can be used to carry out (2) above. What would this
be?!

I haev just found a line of Shyam's on the Net which gave the answer!

For i = oPresentation.Designs(1).SlideMaster.TimeLine.
_MainSequence.Count To 1 Step -1

oPresentation.Designs(1).SlideMaster.TimeLine. _
MainSequence(i).Delete

Next i

Geoff