T
TimeForHelp
I'm writing a macro to assign motion animation to shapes already on my slide.
The heart of the vba code is:
Set oShape = activepresentation.slides(1).shapes(1)
Set EffNewMotion = oSlide.TimeLine.MainSequence.AddEffect(Shape:=oShape,
effectId:=msoAnimEffectCustom)
Set animBehav = EffNewMotion.Behaviors.Add(msoAnimTypeMotion)
With EffNewMotion.Timing
.Duration = 1.5
.TriggerType = 3
.TriggerDelayTime = 1
.Speed = 1
End With
With animBehav.motionEffect
.FromX = 0
.FromY = 0
.ToX = .5
.ToY = .5
End With
The problem is that after running the macro and setting the new motion effect,
the shape is no longer visible in SlideShow until the motion animation fires.
I want to be able to custom motion animate shapes that are already visible.
I've tried using an Appear Effect before the motion, which works, but my
eventual use will be to animate 100's of small shapes on a slide and extra
animations may
be too cumbersome and slow down the entire slide timeline
The heart of the vba code is:
Set oShape = activepresentation.slides(1).shapes(1)
Set EffNewMotion = oSlide.TimeLine.MainSequence.AddEffect(Shape:=oShape,
effectId:=msoAnimEffectCustom)
Set animBehav = EffNewMotion.Behaviors.Add(msoAnimTypeMotion)
With EffNewMotion.Timing
.Duration = 1.5
.TriggerType = 3
.TriggerDelayTime = 1
.Speed = 1
End With
With animBehav.motionEffect
.FromX = 0
.FromY = 0
.ToX = .5
.ToY = .5
End With
The problem is that after running the macro and setting the new motion effect,
the shape is no longer visible in SlideShow until the motion animation fires.
I want to be able to custom motion animate shapes that are already visible.
I've tried using an Appear Effect before the motion, which works, but my
eventual use will be to animate 100's of small shapes on a slide and extra
animations may
be too cumbersome and slow down the entire slide timeline