Objet Effect (PowerPoint)

  • Article

Représente les informations relatives au minutage de l’animation d’une diapositive.

Exemple

Utilisez la méthode AddEffect pour ajouter un effet. Cet exemple montre comment ajouter une forme à la première diapositive de la présentation active et comment lui attribuer un effet et un comportement.

Sub NewShapeAndEffect()

    Dim shpStar As Shape

    Dim sldOne As Slide

    Dim effNew As Effect



    Set sldOne = ActivePresentation.Slides(1)

    Set shpStar = sldOne.Shapes.AddShape(Type:=msoShape5pointStar, _

        Left:=150, Top:=72, Width:=400, Height:=400)

    Set effNew = sldOne.TimeLine.MainSequence.AddEffect(Shape:=shpStar, _

        EffectId:=msoAnimEffectStretchy, Trigger:=msoAnimTriggerAfterPrevious)

    With effNew

        With .Behaviors.Add(msoAnimTypeScale).ScaleEffect

            .FromX = 75

            .FromY = 75

            .ToX = 0

            .ToY = 0

        End With

        .Timing.AutoReverse = msoTrue

    End With

End Sub

Pour faire référence à un objet Effect existant, utilisez la méthode MainSequence(index), où index est le numéro de l’objet Effect dans la collection Sequence . Cet exemple montre comment modifier l’effet de la première séquence et comment en spécifier le comportement.

Sub ChangeEffect()

    With ActivePresentation.Slides(1).TimeLine _

        .MainSequence(1)

        .EffectType = msoAnimEffectSpin

        With .Behaviors(1).RotationEffect

            .From = 100

            .To = 360

            .By = 5

        End With

    End With

End Sub

Méthodes

Nom
Delete
MoveAfter
MoveBefore
MoveTo

Propriétés

Nom
Application
Behaviors
Displayname
EffectInformation
EffectParameters
EffectType
Exit
Index
Paragraphe
Parent
Shape
TextRangeLength
TextRangeStart
Calendrier

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.