如何通过VBA程序代码，给演示文稿PowerPoint中的对象动态的添加动画效果？

　　下面是一个实例，希望对您有所启发。　

　　本例：在当前演示文稿的第一张幻灯片中添加一个形状，并为该形状添加一种效果和一个动作。

　　Sub MyNewShapeAndEffect()'动态添加一个图形
　　Dim shpStar As Shape
　　Dim sldOne As Slide
　　Dim effNew As Effect
　　Set sldOne = ActivePresentation.Slides(1)
　　Set shpStar = sldOne.Shapes.AddShape(Type:=msoShape5pointStar, Left:=150, Top:=72, Width:=400, Height:=400)
　　Set effNew = sldOne.TimeLine.MainSequence.AddEffect(Shape:=shpStar, EffectId:=msoAnimEffectStretchy, Trigger:=msoAnimTriggerAfterPrevious)
　　With effNew
　　　With .Behaviors.Add(msoAnimTypeScale).ScaleEffect
　　　　.FromX = 75
　　　　.FromY = 75
　　　　.ToX = 0
　　　　.ToY = 0
　　　End With
　　　.Timing.AutoReverse = msoTrue
　　　End With
　　End Sub

　　若要引用现有的 Effect对象，请使用MainSequence(index)，其中 index 是 Effect对象在Sequence集合中的编号。本示例更改第一个序列的效果并为该效果指定动作。

　　Sub MyChangeEffect()
　　With ActivePresentation.Slides(1).TimeLine _
        .MainSequence(1)
        .EffectType = msoAnimEffectSpin
        With .Behaviors(1).RotationEffect
            .From = 100
            .To = 360
            .By = 5
        End With
　　End With
　　End Sub

　　不管幻灯片是否有动画，每张幻灯片中至少有一个 Effect对象。

　　本代码适合于开发者所借鉴。