Propriété MotionEffect.ToY (PowerPoint)

  • Article

Renvoie ou définit une valeur de type Single qui représente la position verticale d’un objet MotionEffect , spécifié sous la forme d’un pourcentage de la largeur de l’écran. Lecture-écriture.

Syntaxe

expression. ToY

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é FromY pour redimensionner ou passer d’une position à une autre.

Ne confondez pas cette propriété avec la propriété To 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.