Добавить аудиоклип через 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