PowerPoint VBA教程:Time属性

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

expression.Time

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

说明

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

VBA示例

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


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

上页:PowerPoint VBA教程:ThreeD属性 下页:PowerPoint VBA教程:TimeLine属性

PowerPoint VBA教程:Time属性

PowerPoint VBA教程:TimeLine属性 PowerPoint VBA教程:Timing属性
PowerPoint VBA教程:TintAndShade属性 PowerPoint VBA教程:Title属性
PowerPoint VBA教程:TitleMaster属性 PowerPoint VBA教程:To属性
PowerPoint VBA教程:Top属性 PowerPoint VBA教程:ToX属性
PowerPoint VBA教程:ToY属性 PowerPoint VBA教程:Tracking属性
PowerPoint VBA教程:Transparency属性 PowerPoint VBA教程:TransparencyColor属性
PowerPoint VBA教程:TransparentBackground属性 PowerPoint VBA教程:TriggerDelayTime属性
PowerPoint VBA教程:TriggerShape属性 PowerPoint VBA教程:TriggerType属性
PowerPoint VBA教程:Type属性 PowerPoint VBA教程:Underline属性
PowerPoint VBA教程:UpdateLinksOnSave属性 PowerPoint VBA教程:UseFormat属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号