VBA Animation Help

[Dong Chen]

I'm using PowerPoint 2000.

The file only has one slide, but there are a number of shapes on it. I want
to change the animationsetting of some shapes by clicking a button which has
been assigned a macro. When I run the macro in Visual Basic window, it did
what I intend to do. However, when I clicked the button during the slide
show, nothing happened.

A sample of the code follows:

ActiveWindow.Selection.SlideRange.Shapes.Range(ShapeIndices).Select
With ActiveWindow.Selection.ShapeRange.AnimationSettings
.Animate = msoTrue
.EntryEffect = ppEffectStretchAcross
.AdvanceMode = ppAdvanceOnTime
.AdvanceTime = 0.5
End With

It seems there is no way to change the animationsetting during the slide
show. Is this true? Is there any workaround on this issue?

Thanks.

 

[Steve Rindsberg, PPTMVP]

The file only has one slide, but there are a number of shapes on it. I
want

to change the animationsetting of some shapes by clicking a button which has
been assigned a macro. When I run the macro in Visual Basic window, it did
what I intend to do. However, when I clicked the button during the slide
show, nothing happened.

A sample of the code follows:

ActiveWindow.Selection.SlideRange.Shapes.Range(ShapeIndices).Select
With ActiveWindow.Selection.ShapeRange.AnimationSettings
.Animate = msoTrue
.EntryEffect = ppEffectStretchAcross
.AdvanceMode = ppAdvanceOnTime
.AdvanceTime = 0.5
End With

It seems there is no way to change the animationsetting during the slide
show. Is this true? Is there any workaround on this issue?

Thanks for posting a code sample ... that helps a lot.

See this, for starters:

Macros I record in Normal/Slide view don't work in Slide Show
http://www.rdpslides.com/pptfaq/FAQ00159.htm

You should be able to change animation settings in slide show view, you just
can't select anything, so the .Select code won't work.