Propriété AnimationBehavior.SetEffect (PowerPoint)

  • Article

Renvoie un objet SetEffect pour le comportement d’animation. En lecture seule.

Syntaxe

expression. SetEffect

Expression Variable qui représente un objet AnimationBehavior .

Valeur renvoyée

SetEffect

Remarques

Utilisez l’objet SetEffect retourné pour définir la valeur d’une propriété.

Exemple

L’exemple suivant montre comment ajouter une forme à la première diapositive de la présentation active et appliquer un effet de type définition à un comportement d’animation.

Sub ChangeSetEffect()

    Dim sldFirst As Slide
    Dim shpHeart As Shape
    Dim effNew As Effect
    Dim bhvEffect As AnimationBehavior

    Set sldFirst = ActivePresentation.Slides(1)
    Set shpHeart = sldFirst.Shapes.AddShape(Type:=msoShapeHeart, _
        Left:=100, Top:=100, Width:=100, Height:=100)

    Set effNew = sldFirst.TimeLine.MainSequence.AddEffect _
        (Shape:=shpHeart, EffectID:=msoAnimEffectChangeFillColor, _
        Trigger:=msoAnimTriggerAfterPrevious)

    Set bhvEffect = effNew.Behaviors.Add(msoAnimTypeSet)

    With bhvEffect.SetEffect
         .Property = msoAnimShapeFillColor
        .To = RGB(Red:=0, Green:=255, Blue:=255)
    End With

End Sub

Voir aussi

AnimationBehavior, objet

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.