Propriété AnimationSettings.AnimateBackground (PowerPoint)

Si l’objet spécifié est une forme automatique, spécifie si la forme est animée séparément du texte qu’elle contient. Lecture-écriture.

Syntaxe

expression. AnimateBackground

Expression Variable qui représente un objet AnimationSettings .

Remarques

Utilisez les propriétés TextLevelEffectet TextUnitEffect pour contrôler l’animation du texte attaché à la forme spécifiée.

Si la forme spécifiée est un objet graphique, cette propriété a pour valeur msoTrue si l’arrière-plan (les axes et le quadrillage) de cet objet est animé. Ne s’applique qu’aux formes automatiques dont le texte peut être compilé en plusieurs étapes, ou aux objets graphiques.

Si cette propriété est définie à msoTrue et si la propriété TextLevelEffect est définie à ppAnimateByAllLevels, la forme et son texte seront animés simultanément. Si cette propriété est définie à msoTrue et si la propriété TextLevelEffect est définie à toute valeur autre que ppAnimateByAllLevels, la forme sera animée immédiatement avant le texte.

Vous ne pouvez voir les effets que vous définissez pour une forme que si celle-ci est animée. Pour qu’une forme soit animée, la propriété TextLevelEffect de la forme doit avoir une valeur autre que ppAnimateLevelNone, et la propriété Animate doit être définie sur msoTrue ou la propriété EntryEffect doit être définie sur une constante autre que ppEffectNone.

La valeur de la propriété AnimateBackground peut être l’une de ces constantes MsoTriState.

Constante	Description
msoFaux	La forme spécifiée n’est pas animée distinctement du texte qu’elle contient.
msoVrai	La forme spécifiée est animée distinctement du texte qu’elle contient.

Exemple

Cet exemple crée un rectangle qui contient du texte. L’exemple spécifie ensuite que la forme doit s’envoler à partir de l’angle inférieur droit, que le texte doit être généré à partir de paragraphes de premier niveau et que la forme doit être animée séparément du texte qu’elle contient. Dans cet exemple, la propriété EntryEffect active l’animation.

Sub AnimateTextBox()

    With ActivePresentation.Slides(1).Shapes.AddShape _
            (Type:=msoShapeRectangle, Left:=50, Top:=200, _
            Width:=200, Height:=200)

        .TextFrame.TextRange = "Reason 1" & Chr(13) & _
        "Reason 2" & Chr(13) & "Reason 3"

        With .AnimationSettings
            .EntryEffect = ppEffectFlyFromBottomRight
            .TextLevelEffect = ppAnimateByFirstLevel
            .TextUnitEffect = ppAnimateByParagraph
            .AnimateBackground = msoTrue
        End With
    End With

End Sub

Voir aussi

AnimationSettings, 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.