Effect-Objekt (PowerPoint)
Stellt Anzeigedauerinformationen zu einer Folienanimation dar.
Verwenden Sie die AddEffect-Methode , um einen Effekt hinzuzufügen. In diesem Beispiel wird der ersten Folie der aktiven Präsentation eine Form hinzugefügt und ein Effekt und ein Verhalten hinzugefügt.
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
Um auf ein vorhandenes Effect-Objekt zu verweisen, verwenden Sie die MainSequence(index)-Methode, wobei index die Nummer des Effect-Objekts in der Sequence-Auflistung ist. Dieses Beispiel ändert den Effekt für die erste Sequenz und gibt das Verhalten für diesen Effekt.
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
Name |
---|
Delete |
MoveAfter |
MoveBefore |
MoveTo |
Name |
---|
Application |
Verhalten |
Displayname |
EffectInformation |
EffectParameters |
EffectType |
Exit |
Index |
Paragraph |
Parent |
Shape |
TextRangeLength |
TextRangeStart |
Zeitpunkt |
PowerPoint-Objektmodellreferenz
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.