咔片PPT · AI自动生成演示文稿，模板丰富、排版精美 讯飞智文 · 一键生成PPT和Word，高效应对学习与办公

内容导航：


一、求一个vba实现的ppt倒计时宏


Label Label1, CommandButton CommandButton1

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 < Start + PauseTime
DoEvents
Loop
End Sub


二、ppt上时间倒计时怎么设置


  • 首先打开电脑，把自己做好的PPT打开，如图

    请点击输入图片描述

  • 接着在文件下拉菜单中，找到“选项”，点开

    请点击输入图片描述

  • 在选项窗口，我们找到“信任中心”，点开

    请点击输入图片描述

  • 然后如图，在启用所有宏前边方块内打钩，点确定

    请点击输入图片描述

  • 在菜单栏找到“开发工具”，点开再点击COM加载项，会弹出新窗口，如图

    请点击输入图片描述

  • 接着我们点“添加”，然后找到我们的倒计时工具文件加载进去，点击确定。

    请点击输入图片描述

  • 然后将其放在开始页面就好了

    请点击输入图片描述