原帖地址：
ppt里面的自定义动画只有一个步骤，也就是陀螺旋，但是没见到缩小的步骤，帖子里说有代码，但是似乎也没看到，请问能教教是怎样做到的吗？谢谢
不知道这样发帖是否合适，如果不合适请版主删帖。
[ 本帖最后由 jeff14 于 2008-6-11 09:04 编辑 ]
请问gasx2007大侠做的“不一样的陀螺旋”是怎样做到的？
jeff14 发表于: 2008-6-06 17:04 来源: 扑奔PPT网
大家对 请问gasx2007大侠做的“不一样的陀螺旋”是怎样做到的？ 的评论
最新PPT模板
最新贴子
PPT热贴
现在在国外的几个地下论坛中，正限量发行一本书《powerpoint Animation Insider》，售价是40美金，无极参与了其中两章内容的编写。这本书没有中文版，目前也不打算在国内发布。
下面给你解释一下Gasx2007的那段代码：
Dim objan As AnimationBehavior '定义一个动画动作对象
With PowerPoint.ActivePresentation.Slides(1).TimeLine.MainSequence(1).Behaviors '访问幻灯片1时间线主动画序列1的动画动作集合
Set objan = .Add(msoAnimTypeColor) '在动画动作集合中增加一个颜色类型动画。
With objan
.ColorEffect.From.RGB = RGB(200, 100, 100) '设置这个颜色动画的颜色变化的初始值和最终值。
.ColorEffect.To.RGB = RGB(0, 200, 100)
End With
Set objan = .Add(msoAnimTypeScale) '在动画动作集合中再添加一个缩放动画动作。
With objan
.ScaleEffect.ByX = 10 '设置形状由原始大小从X、Y轴缩小为屏幕大小的10%（X）和20%（Y）
.ScaleEffect.ByY = 20
End With
17.2 KB, 下载次数: 47)
留贴在此！
赞美一下！:D :$
至于您提到的第二个问题，也是一些新手经常会遇到的，因为其中涉及到时间线的体系架构。
简单的说，在PPT中每一张幻灯片有且只有一个主动画序列，默认情况下，它是空的，用户需要自己向这个空的集合中添加元素，有两种方法：
（1）通过PPT的“自定义动画”功能。
（2）通过AddEffect方法。
您之所以出现问题，是因为您没有向主动画序列添加任何动画效果，而With PowerPoint.ActivePresentation.Slides(1).TimeLine.MainSequence(1).Behaviors代码的意思是访问主动画序列中第一个动画效果序列中的动作集合。
解决方法：
在第一张幻灯片上添加一个形状，选择这个形状，给它添加上一个动画效果（如：擦除），然后再执行代码，就不会出错了。