URGENT HELP NEEDED !!!!!!!!!

[Guest]

URGENT HELP NEEDED !!!!!!!!!

I m into powerpoint automation. I am implementing animation effects
programatically. One of the requirements of my project is to fade away that
previous line to GREY COLOR while the current line is being animated. I have
been able to apply the fade effect but there is a problem. It just fades the
first line of the slide to GREY while it fades the other lines to
PowerPoint's default selected color(at that time). In my case all the lines
except for first are fading to dark blue. Only the first line is fading to
grey.
I m coding in VB. Here is the function that I m using to fade the text to
grey. I have been able to set the timings of animations. The only problem is
the fading of text.


********************************************
Sub EffectsTextFade(effect_ As Object)

On Error Resume Next

Dim bhvEffect

With effect_
.EffectInformation.Dim.SchemeColor = 8
.Timing.TriggerType = 2
.Timing.TriggerDelayTime = 0
.Timing.Speed = 5
.EffectType = 56
.EffectParameters.Color2.RGB = RGB(Red:=133, Green:=133, Blue:=133)
End With

End Sub
**************************************************
where effect_ = .MainSequence.AddEffect(Shape:=NewShape, effectId:=0)

This RGB(133,133,133) is the grey color. I have ran the code in trace mode
and the above function runs for everyline of text but the grey color is
applied to only the first line of the slide. All the other lines are fading
to some other color (in my case..its fading to Dark blue).

So, can anyone help me what to do so that all my lines fade to GREY COLOR???

Thanks

 

[Shyam Pillai]

I've tried your example: using this as the calling routine. NewShape is a
reference to a shape have 5 lines of text.

Sub Test()
Dim effect_ As Effect
Dim NewShape As Shape

Set NewShape = ActiveWindow.Selection.ShapeRange(1)

Set effect_ =
ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.AddEffect(Shape:=NewShape,
effectId:=0)

Call EffectsTextFade(effect_)
End Sub


And all 5 lines change to gray.

 

[Guest]

Hi
I guess the problem was not clear. Actually what I m doing is:
1.) I have a shape on a slide with 5 bulleted text.
2.) I am breaking these individual bullets(based of linefeed) into 5
textboxes (this mean I m breaking this one shape into 5 shapes).
3.) Then I run my code to change the color of each of the text boxes.

So, I m applying this function not to a single shape with bullets but to a
various text boxes. And only the first textbox is changing to grey.

My code is very big..so Its not readable if I post here. I hope u got my
problem now. Can you please help me?

Thanks a lot.

 

[Shyam Pillai]

I don't have a problem assigning the animation to several textboxes too.
Check the shape reference you are passing to the routine.