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

Question

要播放以形状形式插入演示文稿中多张幻灯片的音频剪辑，“效果”选项卡中的“播放声音”对话框中有一个名为“停止播放”的选项，可以将其设置为“在 __ 幻灯片之后”。

我浏览了对象模型，甚至尝试使用 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

Answer 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