Sub Effekte_automatisieren()
Dim shp As Shape
With ActivePresentation
With .Slides(3)
Set shp = .Shapes(1)
With .TimeLine.MainSequence
.AddEffect shp, msoAnimEffectFly, , msoAnimTriggerAfterPrevious
With .AddEffect(shp, msoAnimEffectFly, , msoAnimTriggerAfterPrevious)
.Exit = msoTrue
.EffectParameters.Direction = msoAnimDirectionTop
End With
End With
shp.PickupAnimation
End With
.SlideShowSettings.Run
End With
ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Timing.Duration = 1
ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(2).Timing.Duration = 1
With ActivePresentation.Slides(3).Shapes(1).Effects(1).AnimationSettings
.AdvanceMode = ppAdvanceOnTime
.AdvanceTime = 0.1
End With
End Sub