创建日期倒计时Powerpoint VBA

我正在powerpoint中创建一个VBA程序，以倒计时到发货日期的天数。（在工厂的屏幕上运行）我熟悉VBA for Excel，但不熟悉powerpoint。我有开始的代码，但我需要帮助循环它不断和有一个计时器为每一张幻灯片。谢谢

编辑

这就是我目前所拥有的！

---

不确定我是否完全理解，您希望在何处以及如何显示倒计时？例如，当您激活幻灯片时。从何处读取发货日期？@Jeanno我希望每张幻灯片都有不同的日期（每个项目的发货日期不同）。幻灯片将在不断更新的循环中运行。。我知道我可以加入定时器来观看下一张幻灯片和更新。。。我想我已经有了上面代码的开头，但我希望它是自动的：）我认为这没有帮助。为什么？

 Private Sub CommandButton1_Click()

'Sets variables
 Dim Sdate As Long
 Dim thedate As Date
 Dim txt As Date
 Dim pptSlide3 As PowerPoint.Slide
 Set sld = ActivePresentation.SlideShowWindow.View.Slide

 For Each pptSlide3 In ActivePresentation

 'Retrieves D-Day from text box shown above

  TextBox2.Font.Size = 12
  thedate = TextBox2.Text

  'Calculates the amount of time from today's date until D-day above
  Sdate = DateDiff("d", Now(), thedate)

  'Creates textbox with the value of how many days are left
  TextBox1.Value = Sdate & "  Days to go!"
  TextBox1.Font.Size = 36

  'Want it to wait 5 seconds here
  ' Goes to next slide

   With SlideShowWindows(1).View
   .GotoSlide (sld.SlideIndex + 1)
    End With
'I also want the slideshow to loop continuously, do this for every slide and then loop through them again until the user exits powerpoint
    End Sub