PowerPoint动态时钟的VBA代码

Question

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

而不是＆＃34; Do Until 1＆lt; 0＆＃34;，我可能想要＆＃34;直到PowerPoint退出幻灯片模式＆＃34;但我不知道该怎么做。

我尝试在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