我来帮你搞定这个问题！你之前用的AnimationSettings是PowerPoint旧版本的兼容API，现在更推荐用Timeline和Sequence对象来实现这个需求，下面是具体的解决方法：

核心思路 #

要让幻灯片在声音播放完后自动切换，关键是把声音的播放时长和幻灯片的切换时间绑定起来——也就是让幻灯片的自动切换时间等于声音的总播放时长，同时确保声音作为动画效果存在（而不是单纯嵌入的形状）。

分步实现代码 #

你可以直接运行下面的VBA代码，它会自动遍历所有幻灯片，为包含声音的幻灯片设置自动切换：

Sub AutoAdvanceAfterSound()
    Dim targetSlide As Slide
    Dim mediaEffect As Effect
    
    ' 遍历演示文稿里的每一张幻灯片
    For Each targetSlide In ActivePresentation.Slides
        ' 遍历当前幻灯片的所有动画效果
        For Each mediaEffect In targetSlide.TimeLine.MainSequence
            ' 筛选出声音/视频类的媒体动画
            If mediaEffect.Type = msoAnimMedia Then
                ' 启用幻灯片的定时自动切换
                targetSlide.SlideShowTransition.AdvanceOnTime = True
                ' 把切换时间设置为声音的总播放时长
                targetSlide.SlideShowTransition.AdvanceTime = mediaEffect.Timing.Duration
                ' 确保声音和幻灯片切换的触发逻辑匹配
                mediaEffect.Timing.TriggerType = msoTriggerWithPrevious
            End If
        Next mediaEffect
    Next targetSlide
    
    MsgBox "设置完成！所有带声音的幻灯片现在会在声音播放结束后自动切换啦~"
End Sub

关键细节说明 #

• 为什么不用AnimationSettings？：这个属性是为了兼容PowerPoint 2003及更早版本，现在的新版本已经用TimeLine.MainSequence来管理所有动画，功能更稳定全面。
• 如果声音是嵌入形状怎么办？：右键点击幻灯片上的声音图标 → 选择「添加动画」→ 选「播放」，把它转为动画效果后再运行代码。
• 只针对特定幻灯片？：如果不需要所有幻灯片生效，可以修改循环范围，比如只处理第1、3、5张：For Each targetSlide In ActivePresentation.Slides.Range(Array(1, 3, 5))

内容的提问来源于stack exchange，提问作者Felix Fritzsche