Vba 从外部VBS运行宏PowerPoint幻灯片放映时不自动推进_Vba_Vbscript_Powerpoint

Vba 从外部VBS运行宏PowerPoint幻灯片放映时不自动推进

vba vbscript

Vba 从外部VBS运行宏PowerPoint幻灯片放映时不自动推进,vba,vbscript,powerpoint,Vba,Vbscript,Powerpoint,使用从Windows计划任务运行的VBS，我将自动启动PPTM（启用宏）幻灯片放映。PPTM已打开时，VBS调用PPTM的“初始化”子系统。“Init”子模块成功运行幻灯片放映（通过SlideShowSettings.Run），但幻灯片放映不会使用PPTM中的转换计时自动前进。也许这是安全问题。也许我需要在PPTM所在的文件夹中设置executionpolicy unrestricted？想法我还使用了一个类模块来使用App\u SlideShowNextSlide事件。我正在初始化原始Ini

使用从Windows计划任务运行的VBS，我将自动启动PPTM（启用宏）幻灯片放映。PPTM已打开时，VBS调用PPTM的“初始化”子系统。“Init”子模块成功运行幻灯片放映（通过SlideShowSettings.Run），但幻灯片放映不会使用PPTM中的转换计时自动前进。也许这是安全问题。也许我需要在PPTM所在的文件夹中设置executionpolicy unrestricted？想法

我还使用了一个类模块来使用App\u SlideShowNextSlide事件。我正在初始化原始Init子文件中的类模块应用程序引用，但在连接此引用（TheEventClassModuleInstance.App=application）以启动事件侦听之前，我正在循环幻灯片设置：

Dim TheSlidesCounter As Integer
    For TheSlidesCounter = Presentations.Item(1).Slides.Count To 1 Step -1     Presentations.Item(1).Slides(TheSlidesCounter).SlideShowTransition.AdvanceOnTime = msoTrue
    Next

哦，set executionpolicy是针对PowerShell的，我只使用基于Windows的脚本主机