PowerPoint VBA教程:Value属性

设置或返回 Variant 类型值,该值代表动画点的属性值。

expression.Value

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

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教程:UseTextFont属性 下页:PowerPoint VBA教程:VBASigned属性

PowerPoint VBA教程:Value属性

PowerPoint VBA教程:VBASigned属性 PowerPoint VBA教程:VBE属性
PowerPoint VBA教程:VBProject属性 PowerPoint VBA教程:Version属性
PowerPoint VBA教程:VerticalAnchor属性 PowerPoint VBA教程:VerticalFlip属性
PowerPoint VBA教程:Vertices属性 PowerPoint VBA教程:View属性
PowerPoint VBA教程:ViewType属性 PowerPoint VBA教程:Visible属性
PowerPoint VBA教程:WebOptions属性 PowerPoint VBA教程:Weight属性
PowerPoint VBA教程:Width属性 PowerPoint VBA教程:Windows属性
PowerPoint VBA教程:WindowState属性 PowerPoint VBA教程:WordWrap属性
PowerPoint VBA教程:WritePassword属性 PowerPoint VBA教程:Yellow Property
PowerPoint VBA教程:Zoom属性 PowerPoint VBA教程:ZoomToFit属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号