Share via


AnimationBehavior.PropertyEffect Property

Returns a PropertyEffect object for a given animation behavior. Read-only.

Namespace:  Microsoft.Office.Interop.PowerPoint
Assembly:  Microsoft.Office.Interop.PowerPoint (in Microsoft.Office.Interop.PowerPoint.dll)

Syntax

'Declaration
ReadOnly Property PropertyEffect As PropertyEffect
    Get
'Usage
Dim instance As AnimationBehavior
Dim value As PropertyEffect

value = instance.PropertyEffect
PropertyEffect PropertyEffect { get; }

Property Value

Type: Microsoft.Office.Interop.PowerPoint.PropertyEffect
PropertyEffect

Examples

The following example adds a shape with an effect to the active presentation and sets the animation effect properties for the shape to change colors.

Sub AddShapeSetAnimFill()



    Dim effBlinds As Effect

    Dim shpRectangle As Shape

    Dim animBlinds As AnimationBehavior



    'Adds rectangle and sets animiation effect

    Set shpRectangle = ActivePresentation.Slides(1).Shapes _

        .AddShape(Type:=msoShapeRectangle, Left:=100, _

        Top:=100, Width:=50, Height:=50)

    Set effBlinds = ActivePresentation.Slides(1).TimeLine.MainSequence _

        .AddEffect(Shape:=shpRectangle, effectId:=msoAnimEffectBlinds)



    'Sets the duration of the animation

    effBlinds.Timing.Duration = 3



    'Adds a behavior to the animation

    Set animBlinds = effBlinds.Behaviors.Add(msoAnimTypeProperty)



    'Sets the animation color effect and the formula to use

    With animBlinds.PropertyEffect.Property = msoAnimColor

        .From = RGB(Red:=0, Green:=0, Blue:=255)

        .To = RGB(Red:=255, Green:=0, Blue:=0)

    End With



End Sub

See Also

Reference

AnimationBehavior Interface

AnimationBehavior Members

Microsoft.Office.Interop.PowerPoint Namespace