通过powerpoint进度,宏在第二张幻灯片上不起作用

踏板

我正在尝试创建一个将在PowerPoint演示文稿中的幻灯片中运行的宏。我已经开始工作了,但是现在它已经停止工作了,我不知道为什么。

在幻灯片和动画中运行的vbscript是

Private Sub PPTEvent_SlideShowNextBuild(ByVal Wn As SlideShowWindow)
    Sleep 1000
    SendKeys "{RIGHT}"
End Sub


Private Sub PPTEvent_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
    Sleep 1000   
    SendKeys "{RIGHT}"
End Sub

有没有更好的方法可以做到这一点?我看不出问题出在哪里,我也尝试过删除Sleep 1000,但是没有骰子。

奇怪的是,如果我同时使用

SendKeys "{ENTER}"
SendKeys "{RIGHT}"

就像我希望的那样,它贯穿了整个幻灯片放映。

酷蓝

这是基于SlideShowSettings帮助的另一种方法

我在下面已更正的MSDN页面中有一个错误(对于LoopUntilStopped,需要使用msoTrue / False而不是True / False)。

当您进入“幻灯片放映”模式并且动画运行正常时,它将自动启动。

在标准模块中...

Public showRunning As Boolean

Sub runSlides()

  showRunning = True
  For Each s In ActivePresentation.Slides
    With s.SlideShowTransition
      .AdvanceOnTime = msoTrue
      .AdvanceTime = 1
    End With
  Next

  With ActivePresentation.SlideShowSettings

    .RangeType = ppShowAll
    .AdvanceMode = ppSlideShowUseSlideTimings
    .LoopUntilStopped = msoFalse
    .ShowWithAnimation = msoTrue
    .Run

  End With

End Sub

Public Sub OnSlideShowPageChange(ByVal Wn As SlideShowWindow)

  If Not showRunning Then
    runSlides
  End If

End Sub

Public Sub OnSlideShowTerminate(ByVal Wn As SlideShowWindow)
  showRunning = False
  closeSlideShow
End Sub

Public Sub closeSlideShow()
Dim s As Slide

  For Each s In ActivePresentation.Slides
    With s.SlideShowTransition
      .AdvanceOnTime = msoFalse
    End With
  Next

  On Error Resume Next
  ActivePresentation.SlideShowWindow.View.Exit
  On Error GoTo 0

End Sub

编辑:

添加了closeSlideShow例程以停止每次播放幻灯片。

注意:通过编程方式或手动取消选中“幻灯片放映”功能区选项卡中的“使用时间”,将.AdvanceOnTime设置为msoFalse将会停止幻灯片放映。似乎将其设置为msoTrue,并将其输入设置为msoFalse,然后尝试在同一例程中执行ActivePresentation.SlideShowSettings.Run将不起作用!

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

通过powerpoint进度,宏在第二张幻灯片上不起作用

来自分类Dev

CSS Slider's Tab的Active Class(Bootstrap)在第二张幻灯片上不起作用

来自分类Dev

创建一个JavaScript滑块;滑动动作在第一张幻灯片上不起作用,但是滑动动作在第二张幻灯片后起作用吗?

来自分类Dev

当使用2张不同的幻灯片时,幻灯片过渡组件不起作用

来自分类Dev

幻灯片(动画)不起作用

来自分类Dev

幻灯片不起作用

来自分类Dev

幻灯片角度不起作用

来自分类Dev

幻灯片的 Javascript 不起作用

来自分类Dev

添加第二张幻灯片后,幻灯片停止播放

来自分类Dev

跳至离子幻灯片盒中的第二张幻灯片

来自分类Dev

我的幻灯片放映在主机上不起作用

来自分类Dev

幻灯片菜单-单击div关闭某个div上不起作用

来自分类Dev

我的幻灯片放映在主机上不起作用

来自分类Dev

导入幻灯片在Ionic 4上不起作用?

来自分类Dev

CSS幻灯片。仅第二张幻灯片闪烁。而且仅在Chrome / Safari中

来自分类Dev

ActiveWindow VBA命令访问活动幻灯片在虚拟机上运行的PowerPoint 2013上不起作用

来自分类Dev

ActiveWindow VBA命令访问活动幻灯片在虚拟机上运行的PowerPoint 2013上不起作用

来自分类Dev

幻灯片周围的边距不起作用

来自分类Dev

html&javascript幻灯片不起作用(按钮)

来自分类Dev

wp标头中的javascript幻灯片不起作用

来自分类Dev

幻灯片:CSS3过渡不起作用

来自分类Dev

幻灯片完全不起作用

来自分类Dev

我的JQuery图片幻灯片似乎不起作用

来自分类Dev

jQuery幻灯片代码不起作用

来自分类Dev

jQuery幻灯片从左到右不起作用

来自分类Dev

clearTimeout在幻灯片放映中不起作用

来自分类Dev

html / javascript幻灯片不起作用

来自分类Dev

jQuery setTimeout不起作用(图像幻灯片)

来自分类Dev

幻灯片代码在 Javascript 中不起作用

Related 相关文章

  1. 1

    通过powerpoint进度,宏在第二张幻灯片上不起作用

  2. 2

    CSS Slider's Tab的Active Class(Bootstrap)在第二张幻灯片上不起作用

  3. 3

    创建一个JavaScript滑块;滑动动作在第一张幻灯片上不起作用,但是滑动动作在第二张幻灯片后起作用吗?

  4. 4

    当使用2张不同的幻灯片时,幻灯片过渡组件不起作用

  5. 5

    幻灯片(动画)不起作用

  6. 6

    幻灯片不起作用

  7. 7

    幻灯片角度不起作用

  8. 8

    幻灯片的 Javascript 不起作用

  9. 9

    添加第二张幻灯片后,幻灯片停止播放

  10. 10

    跳至离子幻灯片盒中的第二张幻灯片

  11. 11

    我的幻灯片放映在主机上不起作用

  12. 12

    幻灯片菜单-单击div关闭某个div上不起作用

  13. 13

    我的幻灯片放映在主机上不起作用

  14. 14

    导入幻灯片在Ionic 4上不起作用?

  15. 15

    CSS幻灯片。仅第二张幻灯片闪烁。而且仅在Chrome / Safari中

  16. 16

    ActiveWindow VBA命令访问活动幻灯片在虚拟机上运行的PowerPoint 2013上不起作用

  17. 17

    ActiveWindow VBA命令访问活动幻灯片在虚拟机上运行的PowerPoint 2013上不起作用

  18. 18

    幻灯片周围的边距不起作用

  19. 19

    html&javascript幻灯片不起作用(按钮)

  20. 20

    wp标头中的javascript幻灯片不起作用

  21. 21

    幻灯片:CSS3过渡不起作用

  22. 22

    幻灯片完全不起作用

  23. 23

    我的JQuery图片幻灯片似乎不起作用

  24. 24

    jQuery幻灯片代码不起作用

  25. 25

    jQuery幻灯片从左到右不起作用

  26. 26

    clearTimeout在幻灯片放映中不起作用

  27. 27

    html / javascript幻灯片不起作用

  28. 28

    jQuery setTimeout不起作用(图像幻灯片)

  29. 29

    幻灯片代码在 Javascript 中不起作用

热门标签

归档