Objet Effect (PowerPoint)
Représente les informations relatives au minutage de l’animation d’une diapositive.
Exemple
Utilisez la méthode AddEffect pour ajouter un effet. Cet exemple montre comment ajouter une forme à la première diapositive de la présentation active et comment lui attribuer un effet et un comportement.
Sub NewShapeAndEffect()
Dim shpStar As Shape
Dim sldOne As Slide
Dim effNew As Effect
Set sldOne = ActivePresentation.Slides(1)
Set shpStar = sldOne.Shapes.AddShape(Type:=msoShape5pointStar, _
Left:=150, Top:=72, Width:=400, Height:=400)
Set effNew = sldOne.TimeLine.MainSequence.AddEffect(Shape:=shpStar, _
EffectId:=msoAnimEffectStretchy, Trigger:=msoAnimTriggerAfterPrevious)
With effNew
With .Behaviors.Add(msoAnimTypeScale).ScaleEffect
.FromX = 75
.FromY = 75
.ToX = 0
.ToY = 0
End With
.Timing.AutoReverse = msoTrue
End With
End Sub
Pour faire référence à un objet Effect existant, utilisez la méthode MainSequence(index), où index est le numéro de l’objet Effect dans la collection Sequence . Cet exemple montre comment modifier l’effet de la première séquence et comment en spécifier le comportement.
Sub ChangeEffect()
With ActivePresentation.Slides(1).TimeLine _
.MainSequence(1)
.EffectType = msoAnimEffectSpin
With .Behaviors(1).RotationEffect
.From = 100
.To = 360
.By = 5
End With
End With
End Sub
Méthodes
| Nom |
|---|
| Delete |
| MoveAfter |
| MoveBefore |
| MoveTo |
Propriétés
| Nom |
|---|
| Application |
| Behaviors |
| Displayname |
| EffectInformation |
| EffectParameters |
| EffectType |
| Exit |
| Index |
| Paragraphe |
| Parent |
| Shape |
| TextRangeLength |
| TextRangeStart |
| Calendrier |
Voir aussi
Référence du modèle objet PowerPoint
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.