は、プレゼンテーションで複数のスライド形状として挿入したオーディオクリップを再生するには複数のスライド

Question

またがるPowerPointプレゼンテーションにVBAを介してオーディオクリップを追加し、内のオプションは、と呼ば効果タブでサウンドダイアログを再生していますの再生を停止し、に設定できます。__スライドした後。

私はオブジェクトモデルを閲覧しましたが、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