Hi guys, Can any one give me a hint of how to use vb to add emphasis and exit effect on shape in the power point.
So far, I managed to add entrance effect on the shape as following:

Set newWorldArt = oPPSlide.Shapes.AddTextEffect(msoTextEffect25, text1, "Arial", 300, msoFalse, msoFalse, 400, 500)
With oPPSlide.TimeLine.InteractiveSequences
Set oSequence = .Add(1)
With oSequence
Set oEffect = .AddEffect(newWorldArt, msoAnimEffectZoom, , msoAnimTriggerOnShapeClick, 1)
oEffect.Timing.TriggerShape = oPPSlide.Shapes(1)
Set oEffect = .AddEffect(newWorldArt, msoAnimEffectFade, , msoAnimTriggerAfterPrevious)
oEffect.EffectType = msoAnimEffectFade
End With
End With

But the trouble with AddEffect() method is that no matter how I change, the Effect Type, it always end up becomes an entrance effect. I really need an exit effect as well on the same shape. I just don't know how to do that. Can someone help me please as the deadline is approaching, I am getting a bit desperate for it now.