动画的复制

sxdtzh

动画的复制

本示例复制一个动画效果。本示例假定存在一个名为“effDiamond”的动画效果。

Sub CloneEffect()

ActivePresentation.Slides(1).TimeLine.MainSequence _

.Clone Effect:=effDiamond, Index:=-1

End Sub

我把” effDiamond”改为“飞入效果( msoAnimEffectFly) ”，放在“模块”中运行，无论是原程序，还是修改后的程序，都不能运行；无论在03/07还是10，也不能运行。

麻烦各位高手，请问：

1、什么原因？

2、哪个版本有动画效果的复制功能？

kk58588

PPT学习论坛，顶一下。

lxbx2008

很不错，顶一下！