propriété RotationEffect.By (PowerPoint)

Définit ou renvoie une valeur de type Single qui représente la rotation d’un objet d’un nombre de degrés spécifié ; par exemple, une valeur de 180 signifie une rotation de l’objet de 180 degrés. Lecture-écriture.

Syntaxe

expression. By

expression Variable qui représente un objet RotationEffect .

Remarques

L’objet spécifié effectuera une rotation autour de son centre qui restera à la même position sur l’écran

Si les propriétés By et To sont définies pour un effet de rotation, la valeur de la propriété By est ignorée.

Les nombres en virgule flottante (par exemple, 55,5) sont valides, mais pas les nombres négatifs.

Ne confondez pas cette propriété avec les propriétés ByX ou ByY 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 modifie cette rotation.

Sub AddAndChangeRotationEffect()
    Dim effBlinds As Effect
    Dim tmlnShape As TimeLine
    Dim shpShape As Shape
    Dim animBehavior As AnimationBehavior
    Dim rtnEffect As RotationEffect

    'Sets shape, timing, and effect
    Set shpShape = ActivePresentation.Slides(1).Shapes(1)
    Set tmlnShape = ActivePresentation.Slides(1).TimeLine
    Set effBlinds = tmlnShape.MainSequence.AddEffect _
        (Shape:=shpShape, effectId:=msoAnimEffectBlinds)

    'Adds animation behavior and sets rotation effect
    Set animBehavior = tmlnShape.MainSequence(1).Behaviors _
        .Add(Type:=msoAnimTypeRotation)
    Set rtnEffect = animBehavior.RotationEffect

    rtnEffect.By = 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.