forever animation in powerpoint RRS feed

  • Question

  • How can you play an animation forever in powerpoint, by code?


    I have this

    Set eff = ActivePresentation.Slides(1).TimeLine.MainSequence _
            .AddEffect(Shape:=sh, effectId:=msoAnimEffectFly, _

    With eff
    .EffectParameters.Direction = msoAnimDirectionRight
    .Timing.Restart = msoAnimEffectRestartAlways
    .Timing.RepeatCount = 10000
    .Timing.Duration = 6
    End With

    Tuesday, December 20, 2011 6:01 PM

All replies

  • Dear Kurt,

    Thank you very much for sharing your code. It works well for me. 


    Be happy.
    Wednesday, December 21, 2011 8:11 AM
  • Sure this code works, but the problem is with the repeatcount. 10000 is a large number but it will not play forever.

    In the PowerPoint UI you can set an animation to repeat 'until end of slide'. How do you set this 'until end of slide' by code?

    Wednesday, December 21, 2011 8:43 AM
  • Anybody knows how to set the repeat to 'until end of slide' by code?
    Thursday, December 29, 2011 12:46 AM