PPT动态时钟vba

1.PPT动态时钟vba

'这个脚本实线实时的数字时钟和指定时长的倒数计时 Private Declare Function GetTickCount Lib "kernel32.dll" () As LongPrivate 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 LongConst InterVal = 1000 Private Sub CommandButton1_Click()Static State, myStop As BooleanDim preTime, curTime, myTime, jsTime, txTime As LongIf State Then myStop = True: Exit SubCommandButton1.Caption = "Stop Counting"State = TruepreTime = GetTickCountmyTime = Val(TextBox2) + 1jsTime = Val(TextBox2) + 2txTime = Val(TextBox3)Label3.Visible = FalseLabel4.Visible = FalseTextBox2.Visible = FalseTextBox3.Visible = FalseLabel2.Caption = "Counting。

"Do curTime = GetTickCount If curTime - preTime >= InterVal * (jsTime - myTime) Then myTime = myTime - 1 TextBox1 = myTime DoEvents If myTime = txTime Then Label2.Caption = "soon。" Call PlaySound("Ding.wav", 0&) End If If myTime = 0 Then State = False myStop = False CommandButton1.Caption = "Start Counting" Call PlaySound("End.wav", 0&) Exit Do End If End If Sleep (20) Label1 = Time DoEvents If myStop Then State = False myStop = False CommandButton1.Caption = "Start counting" MsgBox "Time up", vbInformation + vbOKOnly, "notice" Exit Do End IfLoopLabel2.Caption = "Time up!"Label3.Visible = TrueLabel4.Visible = TrueTextBox2.Visible = TrueTextBox3.Visible = TrueEnd Sub。

2.怎样在ppt中插入一个VB中的timer控件

PPT在全屏显示的播放状态下是没有时间显示的，使我们在上课与讲座对时间的控制非常不便（看表或看手机的时间都会影响到讲座的气氛和听众的情绪）。

那么在PPT中可以使用时间（时钟）吗？经过试验，可以通过插入Flash时钟或ActiveX控件方式现实。其中插入Flash时钟与在PPT中插入普通的Flash文件一样，网上有很多的介绍，这里仅述以VB6.0为工具以ActiveX控件方式建立时钟，并插入到PPT中。

这里以VB6.0为例说明1、启动动VB，在新建工程对话框中选用“ActiveX控件”选项。2、VB自动建一个用户控件设计器（UserControl）窗口，并命名为“UserControl”。

3、单击工具箱的Label控件（用它显示时间），4、双击工具箱中的“Timer”控件。5、控件属性调整：按PPT文件的背景色在调好窗体及Label的背景色。

在Timer1控件中，将Enabled设为True，将Interval设为1000（单位为ms，）以每秒触发一次。6、代码：Private Sub Timer1_Timer()Label1.Caption = Format(Now, "hh:mm:ss AM/PM") 取得系统时间并设置时间的格式，AM.PM分别上下午End SubPrivate Sub UserControl_Initialize()Label1.Caption = "" Label1内容初始化为空白End Sub7、在“工程”菜单中，选择“工程1属性”，在弹出的对话框中8、工程类型中写入“ActiveX”控件，以编译成”.OCX”为后缀名的ActiveX控件9、工程名任定（如取名为timer）10、在文件菜单中，单击“生成工程1.ocx”项，生成ActiveX控件，将其存于”Windows\system”或“winnt\system32”文件夹中。

11、在PPT中选控件插入自己建好的ActiveX控件，如Timer，在PPT的母版中画出一个合适大小的图标，之后将它放在页脚等地方。保存即可。

以上在Windows xp VB6.0 及Powerpoint2000中调试通过，如第二次打开文件时出现宏问题，请启用宏，如选打包则要把该控件也要插入所用机子的对应的文件夹中。如何在ppt中插入时钟？你首先要下载一个时钟，然后按以下步骤操作 视图菜单工具栏 控件工具箱 点击“其他控件”按钮，在出现的窗口中选择“shock wave flash object” 在母版中 划一个矩形区域 那个矩形区域的快捷菜单 属性 在出现的属性窗口 的movie属性 里输入.swf路径和文件名别人发的，转的给你。

3.vba如何实现ppt的倒计时宏,可以调控时间

第一步：打开第一张幻灯片，选择PPT菜单栏“视图——工具栏——控件工具箱”，打开控件工具箱，选择命令按钮控件，在幻灯片左下角拖出一个命令按钮。右击按钮图标，打开“属性”对话框，将Caption的值改为“开始”。

第二步：选择控件工具箱中的文本框，在按钮下方拖出一个文本框；右击文本框，打开属性对话框，进行文字格式的设置。再次右击文本框控件，选择快捷菜单中的“叠放次序——置于顶层”；

第三步：选中文本框，按Ctrl + C快捷键把文本框复制，然后依次选择第二张、第三张幻灯片，按Ctrl + V快捷键把文本框粘贴，让第二张和第三张幻灯片上都得到一个相同的文本框，并保持在同一个位置

第四步： 选择P P T 菜单栏“ 工具——宏——Visual Basic编辑器，打开编辑器窗口。在编辑窗口中选择菜单“插入——类模块”，在工程资源管理窗口中会自动添加一个名为“类1”的模块，在属性窗口中把名称改为“EventClassModule”。

具体如下：

1、简介

EXCEL表处理软件是美国微软公司研制的办公自动化软件OFFICE 中的重要成员，经过多次改进和升级，最新版本为EXCEL2000。它能够方便的制作出各种电子表格，使用公式和函数对数据进行复杂的运算；用各种图表来表示数据直观明了；利用超级链接功能，用户可以快速打开局域网或Interner上的文件，与世界上任何位置的互联网用户共享工作薄文件。

2、软件

Excel中大量的公式函数可以应用选择，使用Microsoft Excel可以执行计算，分析信息并管理电子表格或网页中的数据信息列表，可以实现许多方便的功能，带给使用者方便。与其配套组合的有：Word、PowerPoint、Access、InfoPath及Outlook,Publisher

3、百科名片

Microsoft Excel是微软公司的办公软件Microsoft office的组件之一，是由Microsoft为Windows和Apple Macintosh操作系统的电脑而编写和运行的一款试算表软件。Excel 是微软办公套装软件的一个重要的组成部分，它可以进行各种数据的处理、统计分析和辅助决策操作，广泛地应用于管理、统计财经、金融等众多领域。

4.以PPT附带的vba实现的、能贯穿PPT放映全过程的可视倒计时控件

外观自定义（比如做成C4的形状）：不懂这是什么意思

只做了下面这个要求，仅作参考吧：

随着触发某个事件的同时开始倒计时一定的秒数（比如5分钟）；能够在vba中调整其实际速度，譬如每显示跳了1秒而实际过了1100毫秒。

在窗体上放一个label1，一个commandbutton1

然后复制粘贴（要倒计时的话，改一下就可以了）：

Private Declare Function GetTickCount Lib "kernel32.dll" () As Long

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Const InterVal = 100 '自定义的时间间隔

Private Sub CommandButton1_Click()

Static State As Boolean, myStop As Boolean

Dim preT As Long, curT As Long, myTime As Long

If State Then myStop = True: Exit Sub

CommandButton1.Caption = "停止"

State = True

preT = GetTickCount

Label = 0

Do

curT = GetTickCount

If curT - preT >= InterVal * (myTime + 1) Then

myTime = myTime + 1

Label1 = myTime

DoEvents

End If

Sleep (20)

Label2 = Time

DoEvents

If myStop Then

State = False

myStop = False

CommandButton1.Caption = "开始"

Exit Sub

End If

Loop

End Sub

最后在一个模块里加入一个宏：

Sub ShowForm()

'

' 宏由 XOoo 记录，日期： 2007-11-26

'

UserForm1.Show 0

End Sub

5.PPT中利用VBA显示时间

转帖：

如下的方法请参考：

'这个脚本实线实时的数字时钟和指定时长的倒数计时

Private Declare Function GetTickCount Lib "kernel32.dll" () As LongPrivate 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 LongConst InterVal = 1000

Private Sub CommandButton1_Click()Static State, myStop As BooleanDim preTime, curTime, myTime, jsTime, txTime As LongIf State Then myStop = True: Exit SubCommandButton1.Caption = "Stop Counting"State = TruepreTime = GetTickCountmyTime = Val(TextBox2) + 1jsTime = Val(TextBox2) + 2txTime = Val(TextBox3)Label3.Visible = FalseLabel4.Visible = FalseTextBox2.Visible = FalseTextBox3.Visible = FalseLabel2.Caption = "Counting。"Do curTime = GetTickCount If curTime - preTime >= InterVal * (jsTime - myTime) Then myTime = myTime - 1 TextBox1 = myTime DoEvents If myTime = txTime Then Label2.Caption = "soon。" Call PlaySound("Ding.wav", 0&) End If If myTime = 0 Then State = False myStop = False CommandButton1.Caption = "Start Counting" Call PlaySound("End.wav", 0&) Exit Do End If End If Sleep (20) Label1 = Time DoEvents If myStop Then State = False myStop = False CommandButton1.Caption = "Start counting" MsgBox "Time up", vbInformation + vbOKOnly, "notice" Exit Do End IfLoopLabel2.Caption = "Time up!"Label3.Visible = TrueLabel4.Visible = TrueTextBox2.Visible = TrueTextBox3.Visible = TrueEnd Sub

6.如何在VBA内加入定时器

VBA程序运行中，你可能需要自动执行某些代码或者定时执行某些计划任务，如自动保存，这就要使用定时器来完成。

这里水文工具集给出VBA中使用计时器的两种方法，其一是使用Application对象的OnTime方法来运行任务，其二是通过Windows API函数来完成，新手用第一种方式比较容易，具体实例如下：一、采用Application.OnTime实现计时器的方式view sourceprint?01.'================================02.' VBA采用Application.OnTime实现计时器03.'04.' 05.'================================06.Public RunWhen As Double07.Public Const cRunIntervalSeconds = 120 ' two minutes08.Public Const cRunWhat = "TheSub" ' the name of the procedure to run09.Sub StartTimer()10.RunWhen = Now + TimeSerial(0,0,cRunIntervalSeconds)11.Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, _12.Schedule:=True13.End Sub14.Sub TheSub()15.StartTimer ' Reschedule the procedure16.End Sub17.Sub StopTimer()18.On Error Resume Next19.Application.OnTime EarliestTime:=RunWhen,Procedure:=cRunWhat, _20.Schedule:=False21.End Sub。