Index Property

expression.Index

expression    Required. An expression that returns one of the objects in the Applies To list.

Example

The following example displays the name and index number for all effects in the main animation sequence of the first slide.

Sub EffectInfo()
    Dim effIndex As Effect
    Dim seqMain As Sequence
    Set seqMain = ActivePresentation.Slides(1).TimeLine.MainSequence
    For Each effIndex In seqMain
        With effIndex
            MsgBox "Effect Name: " & .DisplayName & vbLf & _
                "Effect Index: " & .Index
        End With
    Next
End Sub