爲什麼視頻不能完全停留在書籤上？

Question

我製作了一個測試視頻來檢查PP鏈接的確切程度。如果有人點擊文字，則視頻應該從開始書籤到結束書籤播放。它不會總是在結束書籤上停止！爲什麼？ powerpoint的性能問題？

我想把圖像，但我不能，因爲我需要至少10聲望。

更新： 我正在使用Action設置。

與觸發代碼

Private Sub setStartAndEndPointOnVideoTrigger(activeSlide As Slide, clickShape As Shape, movieShape As Shape, _ 
          startBookmark As MediaBookmark, endBookmark As MediaBookmark) 

    Dim oEffectStart As Effect 
    Dim oEffectEnd As Effect 
    Dim obhvEffect As AnimationBehavior 
    Dim delayTime As Double 

    delayTime = (endBookmark.Position - startBookmark.Position)/1000 

    With activeSlide 
    Set oEffectStart = .TimeLine.InteractiveSequences.Add _ 
         .AddTriggerEffect(movieShape, msoAnimEffectMediaPlayFromBookmark, _ 
         msoAnimTriggerOnShapeClick, clickShape, startBookmark.Name) 

    Set oEffectEnd = .TimeLine.InteractiveSequences.Add _ 
         .AddTriggerEffect(movieShape, msoAnimEffectMediaPause, _ 
         msoAnimTriggerOnShapeClick, clickShape) 

    Set obhvEffect = oEffectStart.Behaviors.Add(msoAnimTypeCommand) 
    obhvEffect.CommandEffect.Bookmark = startBookmark.Name 

    oEffectEnd.Timing.TriggerType = msoAnimTriggerWithPrevious 
    oEffectEnd.Timing.TriggerDelayTime = delayTime 
    End With 

    End Sub 

Answer 1

可能有更多的問題，因爲我不那麼熟悉一些在2010版本中的新方法，但是，它似乎有可能是關於您的一些使用問題隨着陳述。試試這個：

Private Sub setStartAndEndPointOnVideoTrigger(activeSlide As Slide, clickShape As Shape, movieShape As Shape, _ 
          startBookmark As MediaBookmark, endBookmark As MediaBookmark) 

    Dim oEffectStart As Effect 
    Dim oEffectEnd As Effect 
    Dim obhvEffect As AnimationBehavior 
    Dim delayTime As Double 

    delayTime = (endBookmark.Position - startBookmark.Position)/1000 

    With activeSlide.TimeLine.InteractiveSequences 

     With .Add(1) 
      Set oEffectStart = .AddTriggerEffect(movieShape, msoAnimEffectMediaPlayFromBookmark, _ 
           msoAnimTriggerOnShapeClick, clickShape, startBookmark.Name) 
     End With 

     With .Add(2) 
      Set oEffectEnd = .AddTriggerEffect(movieShape, msoAnimEffectMediaPause, _ 
          msoAnimTriggerOnShapeClick, clickShape) 
     End With 

    End With 

    Set obhvEffect = oEffectStart.Behaviors.Add(msoAnimTypeCommand) 
    obhvEffect.CommandEffect.Bookmark = startBookmark.Name 

    oEffectEnd.Timing.TriggerType = msoAnimTriggerWithPrevious 
    oEffectEnd.Timing.TriggerDelayTime = delayTime 

End Sub