使用VBA向PowerPoint添加文本时钟

Question

我试图将时钟添加到PowerPoint幻灯片中，并且必须显示当前时间，这意味着它必须每秒更新一次。这是我目前的宏：

Sub OnSlideShowPageChange()
    Dim i As Integer
    i = ActivePresentation.SlideShowWindow.View.CurrentShowPosition

    MsgBox "Macro still working!"

    'With ActivePresentation.Slides(i).Shapes("Date Placeholder 8")
    '    Do
    '        Sleep 1000
    '        .TextFrame.TextRange.InsertDateTime ppDateTimehmmssAMPM
    '        DoEvents
    '    Loop
    'End With
End Sub

这显示了一个带有文本＆＃34;宏仍在工作的MsgBox！＆＃34;正如所料。但是，如果我删除了撇号，因此（据说）允许更新代码运行，没有任何反应，我也没有看到MsgBox。有人可以帮忙吗？

我尝试过使用AutoDateTime加载项，但它可以工作，除了需要在我的幻灯片上运行的动画和AutoDateTime不断中断这些动画。我也试过TM Timer，它有同样的问题。