Question

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

描述：以PowerPoint附带的vba实现的、能贯穿PPT放映全过程（比方始终挂在左上角）的可视倒计时控件，最好是集成到PPT里面的，而非Flash，更非Always on top的外部独立程序。但PowerPoint附带的vba里好像没有Timer控件…希望实现以下功能：随着触发某个事件的同时开始倒计时一定的秒数（比如5分钟）；能够对其外观自定义（比如做成C4的形状）；能够在vba中调整其实际速度，譬如每显示跳了1秒而实际过了1100毫秒。我是菜鸟，希望各位高手能尽可能说详细些。谢谢大家帮忙！！
这段时间打扰了不少VB方面的高手，抱歉了！答案理想的话，还会有追加分数——尽管大虾们多半不是冲着分数来的吧。真的谢谢各位！

Answer 1

外观自定义（比如做成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

Answer 2

请在所有库中搜索timer，能看到time控件，有五个，自己调试吧

能够在vba中调整其实际速度，譬如每显示跳了1秒而实际过了1100毫秒。就这点的要求太高了^_^

Answer 3

使用sleep 函数试试 Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Answer 4

能够在vba中调整其实际速度，譬如每显示跳了1秒而实际过了1100毫秒

Answer 5

哎呀。。这个问题太偏了，好像很少有人用过哦。我来接分好了