Index Property

Returns a Long that represents the index number for an animation effect or design. Read-only.

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

Applies to | Design Object | Effect Object