经验直达：
- 求一个vba实现的ppt倒计时宏
- ppt上时间倒计时怎么设置
一、求一个vba实现的ppt倒计时宏
Label Label1, CommandButton CommandButton1
【ppt上时间倒计时怎么设置 求一个vba实现的ppt倒计时宏】Private Sub CommandButton1_Click()
Dim Number As Integer
For Number = 30 To 0 Step -1
Label1.Caption = Number
Delay 1
Next
End Sub
Private Sub Delay(PauseTime As Single)
Dim Start As Single
Start = Timer
Do While Timer < StartPauseTime
DoEvents
Loop
End Sub
二、ppt上时间倒计时怎么设置
- 首先打开电脑，把自己做好的PPT打开，如图
请点击输入图片描述
- 接着在文件下拉菜单中，找到“选项”，点开
请点击输入图片描述
- 在选项窗口，我们找到“信任中心”，点开
请点击输入图片描述
- 然后如图，在启用所有宏前边方块内打钩，点确定
请点击输入图片描述
- 在菜单栏找到“开发工具”，点开再点击COM加载项 ， 会弹出新窗口，如图
请点击输入图片描述
- 接着我们点“添加” ， 然后找到我们的倒计时工具文件加载进去，点击确定 。
请点击输入图片描述
- 然后将其放在开始页面就好了
请点击输入图片描述