Objet ColorEffect (PowerPoint)

Représente l’effet de couleur appliqué à un comportement d’animation.

Exemple

Utilisez la propriété ColorEffectde l’objet AnimationBehavior pour renvoyer un objet ColorEffect . Les effets de couleur peuvent être modifiés à l’aide des propriétés Fromet Tode l’objet ColorEffect, comme indiqué ci-dessous. Les effets de couleur sont initialement définis à l’aide de la propriété To , puis peuvent être modifiés par un nombre spécifique à l’aide de la propriété By. L’exemple suivant montre comment ajouter une forme à la première diapositive de la présentation active et comment définir un comportement d’animation avec effet de couleur afin de modifier la couleur de remplissage de la nouvelle forme

Sub ChangeColorEffect()

    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(Type:=msoAnimTypeColor)

    With bhvEffect.ColorEffect
        .From.RGB = RGB(Red:=255, Green:=0, Blue:=0)
        .To.RGB = RGB(Red:=0, Green:=0, Blue:=255)
    End With

End Sub

Voir aussi

Référence du modèle objet PowerPoint

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.