propriété RotationEffect.To (PowerPoint)

Définit ou renvoie une valeur de type Single qui représente la fin de la rotation d’un objet, en degrés, spécifiée relativement à l’écran (par exemple, 90 degrés signifie totalement horizontal). Lecture-écriture.

Syntaxe

expression. To

expression Variable qui représente un objet RotationEffect .

Valeur renvoyée

Unique

Remarques

Utilisez cette propriété en association avec la propriété From pour une transition d’un angle de rotation à un autre.

La valeur par défaut est Empty, et dans ce cas la position actuelle de l’objet est utilisée.

Ne confondez pas cette propriété avec les propriétés ToX ou ToY des objets ScaleEffect et MotionEffect , qui sont utilisés uniquement pour la mise à l’échelle ou les effets de mouvement.

Exemple

Cet exemple ajoute un effet de rotation et modifie immédiatement son angle de rotation, de 90 degrés à 270 degrés.

Sub AddAndChangeRotationEffect()

    Dim effBlinds As Effect
    Dim tmlTiming As TimeLine
    Dim shpRectangle As Shape
    Dim animColor As AnimationBehavior
    Dim rtnEffect As RotationEffect

    Set shpRectangle = ActivePresentation.Slides(1).Shapes(1)
    Set tmlTiming = ActivePresentation.Slides(1).TimeLine
    Set effBlinds = tmlTiming.MainSequence.AddEffect(Shape:=shpRectangle, _
        effectId:=msoAnimEffectBlinds)
    Set animColor = tmlTiming.MainSequence(1).Behaviors.Add(Type:=msoAnimTypeRotation)
    Set rtnEffect = animColor.RotationEffect
    rtnEffect.From = 90
    rtnEffect.To = 270

End Sub

Voir aussi

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