Remove Effect Option

  • Thread starter Thread starter Jim
  • Start date Start date
J

Jim

I was given a 200 slide presentation. When it was some animations of
text had an effect option that after the animation the text changed
colors. Unfortunately some have it some do not and they change
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??
 
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
0 Then
Click to expand...
Print #1, oSld.SlideIndex & vbTab &
ActivePresentation.Slides(oSld.SlideIndex).TImeline.MainSequence(I).DisplayName
End If
Next I
End With
Next
Close #1
End Sub
 
Hi,
You can change the color in this manner.

With ActivePresentation.Slides(oSld.SlideIndex).TimeLine.MainSequence(I)
If .EffectInformation.AfterEffect = msoAnimAfterEffectDim Then
.EffectInformation.Dim.RGB = RGB(0, 0, 255)
End If
End With

or simply set the AfterEffect to msoAnimAfterEffectNone

Regards,
Shyam Pillai

Image Importer Wizard: http://skp.mvps.org/iiw.htm
 
Back
Top