用VBA在PowerPoint里插入每秒更新的时钟

如图，需要将第2页幻灯片的第3个文本框设置为动态变化的时钟

打开开发工具标签

在文件-选项中打开

插入模块

如图，插入模块，插入后，会多一个模块1，图中已插入完毕

插入代码

' 切换时自动显示 
Sub OnSlideShowPageChange()
    '如果是显示到第2张幻灯片
    If ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 2 Then
        '开始更新时钟
        Call showtime
    End If
End Sub

'退出放映时操作（目前无）
Sub OnSlideShowTerminate()
End Sub

' 更新时钟
Sub showtime()
    '如果是第2页幻灯片，就一直刷新时间，不是，就结束
    Do While ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 2  
        '第2页第3个文本框显示时间
        Slide2.Shapes(3).TextFrame.TextRange.Text = Time
        
        intsec = Now
        '如果当前时间小于约定刷新的时间，就交出控制权
        While Now < intsec + 0.00001
            DoEvents
        Wend
    Loop
End Sub

其中0.00001这个数字可以改，越大刷新越慢，我用0.00003时偶尔会2秒跳一下，所以直接写了0.00001了。

代码很简单，在PPT放映过程中，直接可以用回车键跳到下一页，下一页时就不会有时钟的事了。