动画的复制

sxdtzh 发表于 2017-12-7 10:27:26

动画的复制

本示例复制一个动画效果。本示例假定存在一个名为“effDiamond”的动画效果。
Sub CloneEffect()
ActivePresentation.Slides(1).TimeLine.MainSequence _
.Clone Effect:=effDiamond, Index:=-1
End Sub
我把” effDiamond”改为“飞入效果( msoAnimEffectFly) ”，放在“模块”中运行，无论是原程序，还是修改后的程序，都不能运行；无论在03/07还是10，也不能运行。
麻烦各位高手，请问：
1、什么原因？
2、哪个版本有动画效果的复制功能？

kk58588 发表于 2018-1-10 09:56:23