Hinzufügen eines Audioclips über VBA zu einer PowerPoint-Präsentation, die sich über mehrere Folien erstreckt

Question

Um einen Audioclip, der als Form eingefügt wurde, über mehrere Folien in einer Präsentation abzuspielen, gibt es eine Option im Fenster Ton abspielen Dialog im Wirkung Registerkarte genannt Aufhören zu spielen und dieser kann eingestellt werden auf Nach __ Folien .

Ich habe mir das Objektmodell angesehen und sogar versucht, ein Makro mit ppt 2003 aufzuzeichnen (die Option lässt sich nicht aufzeichnen). Wie (wenn überhaupt) kann diese Option über VBA ?

Die Art und Weise, wie ich derzeit einen Ton hinzufüge (der aufhört, nachdem die Folien weitergeschaltet wurden), ist:

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

Versuchen Sie stattdessen dies:

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