在PowerPoint VBA中以编程方式获取上一个/下一个动画

Dim slide As Slide
Dim shape As Shape
Dim animation As Animation
Dim prevAnimation As AnimationEffect

Set slide = ActivePresentation.Slides(1) '替换为要操作的幻灯片索引或名称
Set shape = slide.Shapes("Shape 1") '替换为要操作的形状名称
Set animation = slide.TimeLine.MainSequence '获取幻灯片的动画序列

'遍历动画序列，查找目标形状的动画
For Each prevAnimation In animation.Children
    If prevAnimation.Shape Is shape Then
        Exit For '找到目标形状的动画，退出循环
    End If
Next prevAnimation

If Not prevAnimation Is Nothing Then
    If prevAnimation.Index > 1 Then '判断是否有上一个动画
        Dim prevShape As Shape
        Set prevShape = prevAnimation.Shape '获取上一个动画的形状
        MsgBox "上一个动画形状名称：" & prevShape.Name
    Else
        MsgBox "没有上一个动画"
    End If
Else
    MsgBox "找不到目标形状的动画"
End If

Dim slide As Slide
Dim shape As Shape
Dim animation As Animation
Dim nextAnimation As AnimationEffect

Set slide = ActivePresentation.Slides(1) '替换为要操作的幻灯片索引或名称
Set shape = slide.Shapes("Shape 1") '替换为要操作的形状名称
Set animation = slide.TimeLine.MainSequence '获取幻灯片的动画序列

'遍历动画序列，查找目标形状的动画
For Each nextAnimation In animation.Children
    If nextAnimation.Shape Is shape Then
        Exit For '找到目标形状的动画，退出循环
    End If
Next nextAnimation

If Not nextAnimation Is Nothing Then
    If nextAnimation.Index < animation.Count Then '判断是否有下一个动画
        Dim nextShape As Shape
        Set nextShape = nextAnimation.Shape '获取下一个动画的形状
        MsgBox "下一个动画形状名称：" & nextShape.Name
    Else
        MsgBox "没有下一个动画"
    End If
Else
    MsgBox "找不到目标形状的动画"
End If