vba - PowerPoint 动态时钟的 VBA 代码

Question

我想在 PowerPoint 中创建一个动态时钟，并让它显示在所有幻灯片的同一位置。下面是我一直致力于创建动态时钟的代码。

而不是“直到 1 < 0”，我可能想要一些类似于“直到 PowerPoint 退出幻灯片模式”的东西，但我不知道该怎么做。

我尝试在 PowerPoint 幻灯片母版中创建一个形状，但我不确定如何在代码的 Shapes() 部分定义该形状。我只能让时钟在 Shapes (1) 和 Shapes(2) 中运行——即幻灯片中的默认文本框。

Sub OnSlideShowPageChange()
  Dim time As Date
  Dim count As Integer

  time = Now()

  Do Until 1 < 0
    DoEvents

    With
      ActivePresentation.Slides(SlideShowWindows(1).View.CurrentShowPosition).Shapes(1).TextFrame.TextRange
      .Text = Format((Now()), "hh:mm:ss")
    End With
  Loop
End Sub