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

在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

请注意，以上代码仅仅是获取上一个和下一个动画的示例，实际应用中可能需要根据具体需求进行适当修改。此外，对于形状名称和幻灯片索引等参数，请根据实际情况进行替换。腾讯云并没有直接相关的产品或文档与此问题相关，因此无法提供相关链接。