为什么视频不能完全停留在书签上？

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