以下示例将一个跳动的动画添加到第一张幻灯片的第一个形状中。

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