Prev: where can i find cool animation for an intro to a powerpoint pres
Next: MP3 sound in 2007 won't play in 2003
From: Jim on 17 Apr 2010 09:33
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??
From: Jim on 17 Apr 2010 12:19
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
Print #1, oSld.SlideIndex & vbTab &
ActivePresentation.Slides(oSld.SlideIndex).TImeline.MainSequence(I).DisplayName
End If
Next I
End With
Next
Close #1
End Sub

On Sat, 17 Apr 2010 09:33:56 -0400, Jim(a)google.net wrote:

>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??

From: Shyam Pillai on 17 Apr 2010 20:53
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


<Jim(a)google.net> wrote in message
news:6vdjs51frimnqf3p9loh0ioe1lna410fdg(a)4ax.com...
> 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??

 | 
Pages: 1
Prev: where can i find cool animation for an intro to a powerpoint pres
Next: MP3 sound in 2007 won't play in 2003