Nach dem gleichen Prinzip ...
Dim shp As Shape
With ActivePresentation
With .Slides(1)
Set shp = .Shapes.AddShape(msoShapeRectangle, 50, 50, 100, 100)
shp.TextFrame.TextRange.Text = "Hello!"
With .TimeLine.MainSequence
.AddEffect shp, msoAnimEffectFly, , msoAnimTriggerAfterPrevious
.AddEffect shp, msoAnimEffectFlashBulb, , msoAnimTriggerAfterPrevious
.AddEffect shp, msoAnimEffectShimmer, , msoAnimTriggerWithPrevious
.AddEffect shp, msoAnimEffectBrushOnUnderline, , msoAnimTriggerAfterPrevious
With .AddEffect(shp, msoAnimEffectFly, , msoAnimTriggerAfterPrevious)
.Exit = msoTrue
.EffectParameters.Direction = msoAnimDirectionTop
End With
End With
shp.PickupAnimation
End With
.SlideShowSettings.Run
End With
|