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
Grüße
|