|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
一种方法:整体动画按顺序再操作一遍。
第二种方法:用VBA。以下仅供参考,并适当修改。
- Sub main()
- For i = 1 To 5
- Set shp = ActivePresentation.Slides(1).Shapes("任意多边形 15")
- Set eff = ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect(Shape:=shp, effectid:=msoAnimEffectAppear, trigger:=msoAnimTriggerAfterPrevious) '出现之后
- Set shp = ActivePresentation.Slides(1).Shapes("任意多边形 16")
- Set eff = ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect(Shape:=shp, effectid:=msoAnimEffectAppear, trigger:=msoAnimTriggerAfterPrevious) '出现之后
- Set shp = ActivePresentation.Slides(1).Shapes("任意多边形 18")
- Set eff = ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect(Shape:=shp, effectid:=msoAnimEffectAppear, trigger:=msoAnimTriggerAfterPrevious) '出现之后
- Set shp = ActivePresentation.Slides(1).Shapes("任意多边形 19")
- Set eff = ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect(Shape:=shp, effectid:=msoAnimEffectAppear, trigger:=msoAnimTriggerAfterPrevious) '出现之后
-
- Set shp = ActivePresentation.Slides(1).Shapes("任意多边形 15")
- Set eff = ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect(Shape:=shp, effectid:=msoAnimEffectAppear, trigger:=msoAnimTriggerWithPrevious) '消失之前
- eff.Timing.TriggerDelayTime = 0.5 '计时
- eff.Exit = msoTrue
- Set shp = ActivePresentation.Slides(1).Shapes("任意多边形 16")
- Set eff = ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect(Shape:=shp, effectid:=msoAnimEffectAppear, trigger:=msoAnimTriggerWithPrevious) '消失之前
- eff.Timing.TriggerDelayTime = 0.5 '计时
- eff.Exit = msoTrue
- Set shp = ActivePresentation.Slides(1).Shapes("任意多边形 18")
- Set eff = ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect(Shape:=shp, effectid:=msoAnimEffectAppear, trigger:=msoAnimTriggerWithPrevious) '消失之前
- eff.Timing.TriggerDelayTime = 0.5 '计时
- eff.Exit = msoTrue
- Set shp = ActivePresentation.Slides(1).Shapes("任意多边形 19")
- Set eff = ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect(Shape:=shp, effectid:=msoAnimEffectAppear, trigger:=msoAnimTriggerWithPrevious) '消失之前
- eff.Timing.TriggerDelayTime = 0.5 '计时
- eff.Exit = msoTrue
-
- Set shp = ActivePresentation.Slides(1).Shapes("任意多边形 20")
- Set eff = ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect(Shape:=shp, effectid:=msoAnimEffectAppear, trigger:=msoAnimTriggerWithPrevious) '出现之前
- eff.Timing.TriggerDelayTime = 0.5 '计时
- Set shp = ActivePresentation.Slides(1).Shapes("任意多边形 21")
- Set eff = ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect(Shape:=shp, effectid:=msoAnimEffectAppear, trigger:=msoAnimTriggerWithPrevious) '出现之前
- eff.Timing.TriggerDelayTime = 0.5 '计时
- Set shp = ActivePresentation.Slides(1).Shapes("任意多边形 22")
- Set eff = ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect(Shape:=shp, effectid:=msoAnimEffectAppear, trigger:=msoAnimTriggerWithPrevious) '出现之前
- eff.Timing.TriggerDelayTime = 0.5 '计时
- Set shp = ActivePresentation.Slides(1).Shapes("任意多边形 23")
- Set eff = ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect(Shape:=shp, effectid:=msoAnimEffectAppear, trigger:=msoAnimTriggerWithPrevious) '出现之前
- eff.Timing.TriggerDelayTime = 0.5 '计时
-
- Set shp = ActivePresentation.Slides(1).Shapes("任意多边形 20")
- Set eff = ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect(Shape:=shp, effectid:=msoAnimEffectAppear, trigger:=msoAnimTriggerAfterPrevious) '消失之后
- eff.Timing.TriggerDelayTime = 1 '计时
- eff.Exit = msoTrue
- Set shp = ActivePresentation.Slides(1).Shapes("任意多边形 21")
- Set eff = ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect(Shape:=shp, effectid:=msoAnimEffectAppear, trigger:=msoAnimTriggerAfterPrevious) '消失之后
- eff.Timing.TriggerDelayTime = 1 '计时
- eff.Exit = msoTrue
- Set shp = ActivePresentation.Slides(1).Shapes("任意多边形 22")
- Set eff = ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect(Shape:=shp, effectid:=msoAnimEffectAppear, trigger:=msoAnimTriggerAfterPrevious) '消失之后
- eff.Timing.TriggerDelayTime = 1 '计时
- eff.Exit = msoTrue
- Set shp = ActivePresentation.Slides(1).Shapes("任意多边形 23")
- Set eff = ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect(Shape:=shp, effectid:=msoAnimEffectAppear, trigger:=msoAnimTriggerAfterPrevious) '消失之后
- eff.Timing.TriggerDelayTime = 1 '计时
- eff.Exit = msoTrue
- Next
- End Sub
复制代码
程序有点瑕疵,先运行这个程序,再放映。次数可以修改,里面的程序也要修改,我没认真研究你的动画效果选项。 |
|