Propriété RotationEffect.From (PowerPoint)

  • Article

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

Syntaxe

expression. From

Expression Variable qui représente un objet RotationEffect .

Remarques

Utilisez cette propriété conjointement avec la propriété To pour passer 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 FromX ou FromY 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 puis change immédiatement son angle de rotation.

Sub AddAndChangeRotationEffect()

    Dim effBlinds As Effect
    Dim tlnTiming As TimeLine
    Dim shpRectangle As Shape
    Dim animRotation As AnimationBehavior
    Dim rtnEffect As RotationEffect

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

    Set tlnTiming = ActivePresentation.Slides(1).TimeLine

    Set effBlinds = tlnTiming.MainSequence.AddEffect(Shape:=shpRectangle, _
        effectId:=msoAnimEffectBlinds)

    Set animRotation = tlnTiming.MainSequence(1).Behaviors _
        .Add(Type:=msoAnimTypeRotation)

    Set rtnEffect = animRotation.RotationEffect

    'Sets the rotation effect starting and ending positions
    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.