Animation Effect

  • Thread starter Thread starter Dong Chen
  • Start date Start date
D

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
 
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
 
I'm no vba guru (or vba anything), but I think I can spot a problem. My
version that does work is:
Click to expand...

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.
Click to expand...

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