Animation Effect

Animation Effect

Post by Dong Che » Sun, 27 Jul 2003 00:01:20


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
 
 
 

Animation Effect

Post by Glen Milla » Mon, 28 Jul 2003 21:03:39

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.

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




ActiveWindow.Selection.SlideRange(1).Shapes.Range(iShapeIndices).AnimationSe

 
 
 

Animation Effect

Post by Steve Rind » Tue, 29 Jul 2003 01:54:18

> I'm no vba guru (or vba anything), but I think I can spot a problem. My

You'll do nicely.


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