Вставить и автоматически воспроизводить аудио файлы в Powerpoint? - PullRequest
Новая
       57

Вставить и автоматически воспроизводить аудио файлы в Powerpoint?

0 голосов
/ 15 января 2019

У меня есть этот код (кредит Shyam Pillai): 

Sub SampleTest()
Call InsertAudio("G:\Music\track1.mp3", ActivePresentation.Slides(1))
Call InsertAudio("G:\Music\track2.mp3", ActivePresentation.Slides(2))

End Sub

Sub InsertAudio(Track As String, oSlide As Slide)
Dim oShp As Shape
Dim oEffect As Effect

'Add the audio shape
Set oShp = oSlide.Shapes.AddMediaObject2(Track, True, False, 10, 10)

'Set audio to play automatically
Set oEffect = oSlide.TimeLine.MainSequence.AddEffect(oShp, msoAnimEffectMediaPlay, , msoAnimTriggerWithPrevious)
oEffect.MoveTo 1

'Hide during slide show
With oEffect
    .EffectInformation.PlaySettings.HideWhileNotPlaying = True
End With

End Sub

Код работает, но я хотел бы знать, что я могу к нему добавить, поэтому, когда я запускаю код, он открывает диалоговое окно, где я могу вставить список аудио из файла, который затем будет вставлен один за другим, слайд по слайду с настройками в коде (автоматически, скрыть во время шоу).

Заранее спасибо за помощь

...