Note
Access to this page requires authorization. You can try signing in or changing directories.
Access to this page requires authorization. You can try changing directories.
Sets or returns the value of a property for an animation point. Read/write.
Syntax
expression.Value
expression A variable that represents an AnimationPoint object.
Return value
Variant
Example
This example inserts three fill color animation points in the main sequence animation timeline on the first slide.
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
See also
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.