在实时Powerpoint演示文稿中记录幻灯片更改的时间戳?

这里有一些代码,可以让你在大部分的方式。

首先,在powerpointvbe中,创建一个类,并调用它 CLSPPTE事件 . 把下列东西放进去:

Public WithEvents PPTEvent As Application
Private Sub PPTEvent_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
    MsgBox "Position: " & Wn.View.CurrentShowPosition & ", Time: " & Time
End Sub

Public newPPTEvents As New clsPPTEvents
Sub StartEvents()
    Set newPPTEvents.PPTEvent = Application
End Sub
Sub EndEvents()
    Set newPPTEvents.PPTEvent = Nothing
End Sub

StartEvents sub,您可以进入演示模式,在每次幻灯片更改时,幻灯片编号(位置)和更改的当前时间将显示在消息框中。可以使用这些(或其他)变量写入文件。退出运行幻灯片放映后,您可以运行 EndEvents 停止API钩子。

很抱歉没有提供一个优雅的答案。