通过 VBA 将音频剪辑添加到跨多张幻灯片的 PowerPoint 演示文稿

要播放以形状形式插入演示文稿中多张幻灯片的音频剪辑，可以使用以下选项：播放声音对话框中的Effect选项卡称为停止播放这可以设置为在 __ 张幻灯片之后.

我浏览了对象模型，甚至尝试使用 ppt 2003 记录宏（该选项不记录）。如何（如果可以）通过以下方式设置此选项VBA?

我目前添加声音的方式（在幻灯片前进后停止）是：

Dim oSlide As Slide
Dim oShp As Shape
Dim oEffect As Effect

Set oSlide = ActivePresentation.Slides(2)

Set oShp = oSlide.Shapes.AddMediaObject("C:\MyAudioClip.wav", True, False, 10, 10)

Set oEffect = oSlide.TimeLine.MainSequence.AddEffect(oShp, msoAnimEffectMediaPlay, , msoAnimTriggerWithPrevious)
oEffect.MoveTo 1

试试这个：

Dim oSlide As Slide
Dim oShp As Shape
Dim oEffect As Effect

Set oSlide = ActivePresentation.Slides(1)

Set oShp = oSlide.Shapes.AddMediaObject("p:\testfile\media\minivincent.wav", True, False, 10, 10)

With oShp.AnimationSettings.PlaySettings
    .PlayOnEntry = True
    .PauseAnimation = False
    .StopAfterSlides = 19
End With