大众计算机学习网

专门提供各种电脑教程

AnimationPoint对象与AnimationPoint集合

Admin | 2012-9-11 9:55:16 | 被阅次数 | 3438

  一、AnimationPoint

  代表动画动作的单个动画点。AnimationPoint 对象是 AnimationPoints 集合的成员。AnimationPoints 集合包含动画动作的所有动画点。

  学习使用AnimationPoint 对象

  若要添加或引用 AnimationPoint 对象,请分别使用 Add 或 Item 方法。使用 AnimationPoint 对象的 Time 属性设置动画点之间的计时。使用 Value 属性设置其他动画点属性,如颜色。以下示例在当前演示文稿的主动画序列的第一个动作中添加三个动画点,然后更改每个动画点的颜色。

  Sub MYAniPoint()

      Dim sldNewSlide As Slide
      Dim shpHeart As Shape
      Dim effCustom As Effect
      Dim aniBehavior As AnimationBehavior
      Dim aptNewPoint As AnimationPoint

      Set sldNewSlide = ActivePresentation.Slides.Add _
          (Index:=1, Layout:=ppLayoutBlank)
      Set shpHeart = sldNewSlide.Shapes.AddShape _
          (Type:=msoShapeHeart, Left:=100, Top:=100, _
          Width:=200, Height:=200)
      Set effCustom = sldNewSlide.TimeLine.MainSequence _
          .AddEffect(shpHeart, msoAnimEffectCustom)
      Set aniBehavior = effCustom.Behaviors.Add(msoAnimTypeProperty)

      With aniBehavior.PropertyEffect
        .Property = msoAnimShapeFillColor
          Set aptNewPoint = .Points.Add
          aptNewPoint.Time = 0.2
          aptNewPoint.Value = RGB(0, 0, 0)
          Set aptNewPoint = .Points.Add
          aptNewPoint.Time = 0.5
          aptNewPoint.Value = RGB(0, 255, 0)
          Set aptNewPoint = .Points.Add
          aptNewPoint.Time = 1
          aptNewPoint.Value = RGB(0, 255, 255)
      End With

  End Sub

  二、AnimationPoints集合

  代表 PropertyEffect 对象动画点的集合。

  学习使用AnimationPoints 集合

  使用 PropertyEffect 对象的 Points 属性返回AnimationPoints集合对象。以下示例在当前演示文稿的主动画序列的第一个动作中添加一个动画点。

  Sub MYAddPoint()
      ActivePresentation.Slides(1).TimeLine.MainSequence(1) _
          .Behaviors(1).PropertyEffect.Points.Add
  End Sub

  从一个动画点切换到另一动画点有时可能会不连续或不平稳。使用此 Smooth 属性可使切换更平稳。本示例使动画点之间的切换更平稳。

  Sub MYSmoothTransition()
      ActivePresentation.Slides(1).TimeLine.MainSequence(1) _
          .Behaviors(1).PropertyEffect.Points.Smooth = msoTrue
  End Sub