VBA Animation Help

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

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

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.
 
Back
Top