Animation Effect

[Dong Chen]

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

 

[Glen Millar]

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

 

[Steve Rindsberg]

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.