vba - PowerPoint 動的時計の VBA コード

Question

PowerPoint で動的な時計を作成し、すべてのスライドの同じ場所に表示したいと考えています。以下は、動的クロックを作成するために取り組んできたコードです。

"Do until 1 < 0" の代わりに、おそらく "Do until PowerPoint Exit Slideshow Mode" のようなものが欲しいのですが、その方法がわかりません。

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