I would like to have a group of shapes selected for animation, and let the
animation take place automatically, then dismiss the animation. Here is my
coding:

With
ActiveWindow.Selection.SlideRange(1).Shapes.Range(iShapeIndices).AnimationSe
ttings
.EntryEffect = ppEffectFlyFromBottom
.AdvanceMode = ppAdvanceOnTime
.Animate = msoFalse
End With

However, it doesn't work as I intended. The shapes come up without
animation.

Is there something to do with "design mode" or "presentation mode"?

Thanks.

Dong

Hi,

I'm no vba guru (or vba anything), but I think I can spot a problem. My
version that does work is:

Sub NextBuild()
SlideShowWindows(1).View.Next
End Sub


Now, that will animate whatever is next to be animated. It starts with:
SlideShowWindows

Yours starts with:

ActiveWindow.Selection

To my mind, that will never run in a slideshow as it is designed for a
window. Anyway, a place perhaps to start looking.

--
Regards,

Glen Millar
Microsoft PPT MVP
http://www.powerpointworkbench.com/
Please tell us your ppt version, and get back to us here
Remove spaces from signature


"Dong Chen" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> I would like to have a group of shapes selected for animation, and let the
> animation take place automatically, then dismiss the animation. Here is my
> coding:
>
> With
>
ActiveWindow.Selection.SlideRange(1).Shapes.Range(iShapeIndices).AnimationSe
> ttings
> .EntryEffect = ppEffectFlyFromBottom
> .AdvanceMode = ppAdvanceOnTime
> .Animate = msoFalse
> End With
>
> However, it doesn't work as I intended. The shapes come up without
> animation.
>
> Is there something to do with "design mode" or "presentation mode"?
>
> Thanks.
>
> Dong
>
>
>

> I'm no vba guru (or vba anything), but I think I can spot a problem. My
> version that does work is:

You'll do nicely.

> Yours starts with:
>
> ActiveWindow.Selection
>
> To my mind, that will never run in a slideshow as it is designed for a
> window. Anyway, a place perhaps to start looking.

A slideshow can have a window, but you'll note that you can't select
anything there, so .Selection won't fly.