Option
Explicit
Sub
Test()
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
End
With
shp.PickupAnimation
End
With
.SlideShowSettings.Run
End
With
End
Sub