Propriété ScaleEffect.ByX (PowerPoint)

Définit ou renvoie un single qui représente la mise à l’échelle ou le déplacement horizontal d’un objet selon un pourcentage spécifié de la largeur de l’écran, selon qu’il est utilisé avec un objet ScaleEffect ou MotionEffect , respectivement. Par exemple, si un effet de déplacement a la valeur 50, cela entraîne le déplacement de l’objet de la moitié de l’écran vers la droite. Lecture-écriture.

Syntaxe

expression. ByX

expression Variable qui représente un objet ScaleEffect .

Valeur renvoyée

Unique

Remarques

Les nombres négatifs entraînent le déplacement de l’objet horizontalement vers la gauche. Les nombres à virgule flottante sont autorisés (55,5 par exemple).

Pour mettre à l’échelle ou déplacer un objet verticalement, utilisez la propriété ByY .

Si les deux propriétés ByX et ByY sont définies, l’objet est mis à l’échelle ou déplacé horizontalement et verticalement.

Ne confondez pas cette propriété avec la propriété By des objets ColorEffect, RotationEffect ou PropertyEffect , qui est utilisée pour définir des couleurs, des rotations ou d’autres propriétés d’un comportement d’animation, respectivement.

Exemple

L’exemple suivant ajoute un chemin d’animation, puis définit le déplacement horizontal et vertical de la forme.

Sub AddMotionPath()

    Dim effCustom As Effect
    Dim animBehavior As AnimationBehavior
    Dim shpRectangle As Shape

    'Adds rectangle and sets effect and animation
    Set shpRectangle = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeRectangle, Left:=300, _
        Top:=300, Width:=300, Height:=150)

    Set effCustom = ActivePresentation.Slides(1).TimeLine _
        .MainSequence.AddEffect(Shape:=shpRectangle, _
         effectId:=msoAnimEffectCustom)

    Set animBehavior = effCustom.Behaviors.Add(msoAnimTypeMotion)

    'Specifies animation motion
    With animBehavior.MotionEffect
        .ByX = 50
        .ByY = 50
    End With

End Sub

Voir aussi

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