Index 属性

返回 Long 类型值，该值代表动画效果或设计的索引号。只读。

expression  必选。该表达式返回“应用于”列表中的对象之一。

示例

以下示例显示第一张幻灯片的主动画序列中所有效果的名称和索引号。

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