Time 属性

设置或返回 Single 类型值，该值代表给定动画点对应的时间。可读写。

expression  必选。该表达式返回“应用于”列表中的对象之一。

说明

Time 属性值可以是 0 和 1 之间任何的浮点值，代表相对于整个日程表从 0% 到 100% 的某个百分比。例如，值 0.2 对应于整个日程表持续时间从左向右 20% 处的时间位置。

示例

本示例在第一张幻灯片的主序列动画日程表中插入三个填充颜色的动画点。

Sub BuildTimeLine()

    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
End Sub