PowerPoint中如何设置现在时间并实时更新

繁华是客

发布于 2023-03-03 20:12:11

1.9K0

发布于 2023-03-03 20:12:11

文章被收录于专栏：鱼的爱情看不出泪水

在工作中，PowerPoint做实时时间可以通过Add-in也可以通过VB来做，下面我用VB来做，本文最后还有做好的模板文件。

PowerPoint 设置

Step 1: 新建文本框并在文本框输入”–:–:–”

Step 2: 在Home里面找到Find下面的Select并选择Selection Pane

Step 3: 在右方Selection选择双击Textbox的名字并更名为ShpClock

Step 4: 去Options添加Developer Tab。

Visual Basic设置

Step 5: 点击developer Tab然后点击Visual Basic设置

Step 6: 在Microsoft Visual Basic for Applcations打开后点击Insert–>Module

Step 7: 在输入代码页面输入如下代码

Public clock As Boolean
Public currenttime, currentday As String


Sub Pause()
Dim PauseTime, start
PauseTime = 1
start = Timer
Do While Timer < start + PauseTime
DoEvents
Loop
End Sub

Sub StartClock()
clock = True
Do Until clock = False
On Error Resume Next
currenttime = Format((Now()), "hh:mm:ss")
currenttime = Mid(currenttime, 1, Len(currenttime) - 0)
ActivePresentation.Slides(SlideShowWindows(1).View.CurrentShowPosition).Shapes("shpClock").TextFrame.TextRange.Text = currenttime
Pause
Loop
End Sub

Sub OnSlideShowPageChange(ByVal objWindow As SlideShowWindow)
clock = False
ActivePresentation.Slides(SlideShowWindows(1).View.CurrentShowPosition).Shapes("shpClock").TextFrame.TextRange.Text = "--:--:--"
End Sub

Sub OnSlideShowTerminate()
clock = False
End Sub

Step 8: 关闭VBA窗口，点击文本框，然后找到Insert–>Action并将Action Setting内的Mouse Click Tab选择Run macro并选择为StartClock