PowerPoint是一个很容易上手的软件，人人都能来几下子。
有人很鄙视PPT动画，认为它过于简单，有很多效果实现不了，还是Flash更高一筹。
然而，人们只是认识了PowerPoint的冰山一角，或者说目前国内对于PPT的应用还处
于较低的水平，特别是在动画应用方面。
下面发一个刚做的例子，请P友们找找它的动画设置有什么不同，为什么会这样子？
朋友们看过之后，把你的发现发布出来，把你的问题讲出来，
祝愿您也能深入PowerPoint的内核，寻找与别人不一样的感受。
不要被下面简单的贴图迷惑了你的眼睛，下载吧，你会发现PPT的另外一片天。
哎！我自认在Flash方面还有点水准，可是做起来很累啊，很伤神啊！（当然做点简单的除外）
还是做PPT动画来得更轻快。
PPT动画很精彩，只是你是否发现！
PPT动画很炫人，只是你是否喜爱！
要下网了！准备周末了！
周末不上网，星期一再发一个精彩动画上来吧。
[ 本帖最后由 gasx2007 于 2008-5-9 14:55 编辑 ]
(3.02 KB, 下载次数: 1487)
看完效果的朋友，请你们提出自己的看法。讨论是最好的学习方法。
幻灯片1.JPG
3.51 KB, 下载次数: 417)
[ 本帖最后由 amwyq 于 2008-5-11 08:58 编辑 ]
这是动感教师的代码：
Dim shpFirst As Shape
Dim effMain As Effect
Dim tmlMain As TimeLine
Dim aniBhvr As AnimationBehavior
Dim aniPoint As AnimationPoint
Set shpFirst = ActivePresentation.Slides(1).Shapes(2)
Set tmlMain = ActivePresentation.Slides(1).TimeLine
Set effMain = tmlMain.MainSequence.AddEffect(Shape:=shpFirst, :=msoAnimEffectBlinds)
Set aniBhvr = tmlMain.MainSequence(1).Behaviors.Add (Type:=msoAnimTypeProperty)
With aniBhvr.PropertyEffect
.Property = msoAnimShapeFillColor
Set aniPoint = .Points.Add
aniPoint.Time = 0.2
aniPoint.Value = RGB(0, 0, 255)
Set aniPoint = .Points.Add
aniPoint.Time = 0.5
aniPoint.Value = RGB(255, 255, 0)
Set aniPoint = .Points.Add
aniPoint.Time = 1
aniPoint.Value = RGB(255, 0, 0)
End With
这是微软帮助文件中的代码：
Dim shpFirst As Shape
Dim effMain As Effect
Dim tmlMain As TimeLine
Dim aniBhvr As AnimationBehavior
Dim aniPoint As AnimationPoint
Set shpFirst = ActivePresentation.Slides(1).Shapes(1)
Set tmlMain = ActivePresentation.Slides(1).TimeLine
Set effMain = tmlMain.MainSequence.AddEffect(Shape:=shpFirst,EffectId:=msoAnimEffectBlinds)
Set aniBhvr = tmlMain.MainSequence(1).Behaviors.Add (Type:=msoAnimTypeProperty)
With aniBhvr.PropertyEffect
.Property = msoAnimShapeFillColor
Set aniPoint = .Points.Add
aniPoint.Time = 0.2
aniPoint.Value = RGB(0, 0, 0)
Set aniPoint = .Points.Add
aniPoint.Time = 0.5
aniPoint.Value = RGB(0, 255, 0)
Set aniPoint = .Points.Add
aniPoint.Time = 1
aniPoint.Value = RGB(0, 255, 255)
End With
下面是本人的代码：
Dim objan As AnimationBehavior
With PowerPoint.ActivePresentation.Slides(1).TimeLine.MainSequence(1).Behaviors
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
.ScaleEffect.ByY = 20
End With
End With
[ 本帖最后由 gasx2007 于 2008-5-12 08:25 编辑 ]
想学习的朋友可以多看看微软帮助文件中关于动画设计的部分，它把ＰＰＴ动画对象结构说得很清楚。花上一点时间就可以了。
帮助文件中的一小部分代码是错误的，调试的时候请注意。
虽然微软给我们呈现了一个完全透明的文档说明，但实际的应用与创新还是会是一个难点，朋友们只有多交流才会少走弯路。
感兴趣的朋友可以看一看