Propriété MotionEffect.FromX (PowerPoint)

Définit ou renvoie une valeur single qui représente la largeur de départ ou la position horizontale d’un objet MotionEffect , spécifié en pourcentage de la largeur de l’écran. Lecture-écriture.

Syntaxe

expression. FromX

expression Variable qui représente un objet MotionEffect .

Valeur renvoyée

Unique

Remarques

La valeur par défaut de cette propriété est Empty, la position actuelle de l’objet est utilisée.

Utilisez cette propriété conjointement avec la propriété ToX pour redimensionner ou passer d’une position à une autre.

Ne confondez pas cette propriété avec la propriété From des objets ColorEffect, RotationEffect ou PropertyEffect , qui est utilisée pour définir ou modifier 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 et définit les positions horizontale et verticale de début et de fin.

Sub AddMotionPath()

    Dim effCustom As Effect
    Dim animMotion As AnimationBehavior
    Dim shpRectangle As Shape

    'Adds shape and sets effect and animation properties

    Set shpRectangle = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeRectangle, Left:=100, _
        Top:=100, Width:=50, Height:=50)

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

    Set animMotion = effCustom.Behaviors.Add(msoAnimTypeMotion)

    'Sets starting and ending horizontal and vertical positions

    With animMotion.MotionEffect
        .FromX = 0
        .FromY = 0
        .ToX = 50
        .ToY = 50
    End With

End Sub

Voir aussi

Objet MotionEffect

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.