Dim sldFirst As SlideDim shpFirst As ShapeSet sldFirst = ActivePresentation.Slides(1)Set shpFirst = sldFirst.Shapes(1)sldFirst.TimeLine.MainSequence.AddEffect _ Shape:=shpFirst, EffectId:=ksoAnimEffectBounce