SoRry for the typo When i pasted it into my reader something got
screwed up
If anyone is interested I did make some progress
I was given a 200 slide presentation. When it was made some text
animations had an aftereffect option that after the animation the
text changed colors. Unfortunately some slides have this aftereffect,
some do not andsome when the do change they change to different
colors.
Is there a way in VBA to search all the animations and to either
standardize it to all the same color or to remove this option
completely??
I did figure out how to find which slides have the effect but not how
to change it
Sub FindTimelineAfterEffect()
Dim I As Integer
Dim AppUse As String
AppUse = ActivePresentation.FullName
AppUse = Replace(AppUse, ".pptm", "")
AppUse = Replace(AppUse, ".ppt", "")
AppUse = Replace(AppUse, ".ppt", "")
AppUse = AppUse & " Afterefftfects.txt"
Open AppUse For Output As #1
For Each oSld In ActivePresentation.Slides
ActivePresentation.Slides(oSld.SlideIndex).Select
SlideToStop = oSld.SlideIndex
With ActivePresentation.Slides(oSld.SlideIndex).TImeline
For I = 1 To .MainSequence.Count
If
ActivePresentation.Slides(oSld.SlideIndex).TImeline.MainSequence(I).EffectInformation.AfterEffect
Print #1, oSld.SlideIndex & vbTab &
ActivePresentation.Slides(oSld.SlideIndex).TImeline.MainSequence(I).DisplayName
End If
Next I
End With
Next
Close #1
End Sub