给PPT的每页都增加上展示顺序

Sub addsequence()
Dim oPres As Presentation
Set oPres = Application.ActivePresentation
Dim oSlide As Slide
Dim oShape As Shape
Dim i As Long, j As Long
Dim sldNew As Slide
Dim shpnew As Shape
'循环每页幻灯
For i = 1 To oPres.Slides.Count
Set oSlide = oPres.Slides.Item(i)
'oSlide.Shapes.Count
    Set sldNew = oSlide
'    oSlide.Shapes.Item(2).TextFrame.TextRange.Text = "This is for test"
    Set shpnew = sldNew.Shapes.Item(2)


    With sldNew.TimeLine.MainSequence.AddEffect(Shape:=shpnew, _
            EffectId:=msoAnimEffectBoomerang)
        .Timing.Speed = 0.5
        .Timing.Accelerate = 0.2
    End With
Next


End Sub