倒计时到特定日期

> 在代码中设定好目标日期，运行宏后即可在形状中显示剩余的天数。

**使用方法：**

新建一个只有一页的 PPT，插入一个形状，并设置形状的填充与文本样式。

接着在`“切换”`选项卡中设置自动换片时间为 1 秒，然后在`“幻灯片放映”`选项卡中，点击`设置幻灯片放映`功能，在弹出的窗口中勾选`循环放映`。

设置完成后打开代码编辑器，插入如下代码，在放映 PPT 时就会根据设置的目标时间自动显示剩余日期。

**代码如下：**

```vb
Sub 日期倒计时()
    Dim thedate As Date
    Dim daycount As Long
    Dim Icount As Integer
    Icount = ActivePresentation.Slides(1).Shapes.Count
    '修改下方的日期为目标日期，月/日/年'
    thedate = "6/1/2022"
    daycount = DateDiff("d", Now, thedate)
    Select Case daycount
        Case Is > 1
            ActivePresentation.Slides(1).Shapes(Icount) _
            .TextFrame.TextRange = " 还剩 " & daycount & " 天"
        Case Is = 1
            ActivePresentation.Slides(1).Shapes(Icount) _
            .TextFrame.TextRange = " 还剩 " & daycount & " 天"
        Case Else
            ActivePresentation.Slides(1).Shapes(Icount) _
            .TextFrame.TextRange = "时间到!"
    End Select
End Sub
Sub OnSlideShowPageChange(SW As SlideShowWindow)
    '该代码用于循环放映到最后一张时，自动运行上面的日期倒计时代码'
    If SW.View.Slide.SlideIndex = (ActivePresentation.Slides.Count) Then 日期倒计时
End Sub
```