ppt倒计时软件，ppt倒计时器（用VBA实现PPT倒计时）

关于【ppt倒计时软件】:ppt倒计时器（今天分享的这款PPT倒计时软件），今天涌涌小编给您分享一下，如果对您有所帮助别忘了关注本站哦。

• 内容导航：
• 1、用VBA实现PPT倒计时
• 2、ppt倒计时器（今天分享的这款PPT倒计时软件）

1、用VBA实现PPT倒计时

应各类演讲比赛所需，用VBA编写了PPT倒计时文件。可自行设置倒计时时间及到时提前提醒时间，其设置值可继承，直到再次被重新设置为止。具体应用时将标题“用VBA实现倒计时读秒”改为实际所需的标题即可。附属声音文件Ding.wav(计时提醒音)和End,wav(计时结束音)，可根据个性偏好，自行用其它声音文件替换。
启动PowerPoint时，请单击菜单“工具”->“宏”->“安全性”，将安全级调整为中或低，以便能使用本文件。

代 码：

Private Declare Function GetTickCount Lib kernel32.dll () As Long
Private Declare Sub Sleep Lib kernel32.dll (ByVal dwMilliseconds As Long)
Private Declare Function PlaySound Lib winmm.dll Alias sndPlaySoundA (ByVal lpszName As String, ByVal uFlags As Long) As Long
Const InterVal = 1000 自定义的时间间隔
Dim myStop As Boolean 中断计时标识

Private Sub CommandButton1_Click() 倒计时开始及中断按钮
Dim preTime, curTime, myTime, jsTime, txTime As Long

Select Case CommandButton1.Caption
Case 开始倒计时
CommandButton1.Caption = 停止倒计时
preTime = GetTickCount 获得计时开始初始时间
myTime = Val(TextBox2) + 1 所余倒计时时间
jsTime = Val(TextBox2) + 2 总倒计时时间
txTime = Val(TextBox3) 倒计时结束前提醒时间
Label3.Visible = False 隐藏倒计时输入提示标签
Label4.Visible = False 隐藏计时结束前提醒时间输入标签
TextBox2.Visible = False 隐藏输入倒计时时间(秒)文本框
TextBox3.Visible = False 隐藏输入计时结束前提醒(秒)文本框
Label2.Caption = 计时进行中 计时状态提示标签
Do
curTime = GetTickCount 获得当前时间
If curTime - preTime >= InterVal * (jsTime - myTime) Then
myTime = myTime - 1
TextBox1 = myTime 显示所余倒计时秒数
DoEvents 转让控制权，以便让操作系统处理其它的事件
If myTime = txTime Then
Label2.Caption = 计时将结束
Call PlaySound(Ding.wav, 0&) 计时将结束提示音
End If
If myTime = 0 Then
Label2.Caption = 计时时间到
CommandButton1.Caption = 开始倒计时
Call PlaySound(End.wav, 0&) 计时结束提示音
Exit Do
End If
End If
Sleep (20) 延时暂停20毫秒
Label1 = Time 倒计时中系统实时时间提示标签
DoEvents
If myStop Then
myStop = False
Label2.Caption = 计时被中断
CommandButton1.Caption = 开始倒计时
MsgBox 倒计时终止！, vbInformation + vbOKOnly, 操作提示
Exit Do
End If
Loop
Case 停止倒计时
myStop = True
End Select

Label3.Visible = True 显示倒计时输入提示标签
Label4.Visible = True 显示计时结束前提醒时间输入标签
TextBox2.Visible = True 显示输入倒计时时间(秒)文本框
TextBox3.Visible = True 显示输入计时结束前提醒(秒)文本框

End Sub

演示图：

附件下载：

文件名称：用VBA实现PPT倒计时.PPT
附属文件：Ding.wav、End,wav

http://www.accessoft.com/article-show.asp?id=5493 里下载。

2、ppt倒计时器（今天分享的这款PPT倒计时软件）

Ppt倒计时器(今天分享的这个PPT倒计时软件)

今天给大家分享一个PPT倒计时软件。我们学校也一直在各种场合使用:演讲比赛、知识竞赛、面试、毕业论文答辩、辩论赛、计时赛、数钱大赛、教学活动、会议计时、投影仪计时等场景，用来提醒时间。

这个PPT倒计时软件的功能主要包括:

1.智能自动识别ppt启动时机，到达时自动关闭退出PPT；

2.支持闹铃提醒，提前设置倒计时提醒。可以自定义提前提醒和到达时间提醒；

3.应用范围广，适用于多种不同场合，可全屏显示；

4.界面美观、时尚、小巧精致；

5.背景可以设置成完全透明；

6.定时数字字体大小，固定窗口大小和可调字体大小和颜色；

7.定时器可以放在ppt的右上角或中央等任何位置，定时要根据需求调整。

关键是这个软件没有功能限制，不需要注册，可以多台电脑使用，永远免费。

收集

本文关键词：ppt倒计时器flash插件，ppt倒计时器怎么设置时间，ppt倒计时器怎么设置，ppt倒计时器在哪里下载，ppt倒计时器怎么做。这就是关于《ppt倒计时软件，ppt倒计时器（用VBA实现PPT倒计时）》的所有内容，希望对您能有所帮助！

本文链接：https://bk.89qw.com/a-346822