Abo

关于ppt的“代码”收录


ppt

“你不必生来勇敢、天赋过人,只要能投入勤奋,诚诚恳恳”

第一次听见这首歌,是在雨夜,配合着雨声,莫名被这首歌勾住了魂( •̀ ω •́ )✧

抽奖代码实现

关于抽奖

关于抽奖的流程,主要是两种途径,一种是在ppt里加上此功能,第二种是使用第三方软件或者网页。

  1. 第一种实在是找不到什么比较贴切的主题,多半比较low,而且有一点就是如果自己设置的话略微麻烦
  2. 第二种的话会给人一种违和感,需要切出ppt的操作感,会给观众一种莫名的不舒适感,所以个人是比较排斥这种方法。
  3. ⭐然后就有了第三种方法,就是通过代码动态生成

必备品

powerpoint一般是不会将开发工具这一tab栏打开,需要用户自行设置

设置方法:文件-设置-开发工具√

加载代码的ppt似乎需要将原格式(ppt或者pptx)更改为另存为适用宏定义的格式,比如pptm,详细可以见右键另存为,格式列表讲的很清楚了

代码

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public a, b As Integer
Private Sub Label1_Click()
End Sub
Private Sub 结束抽奖_Click()
b = 1
Label1.Caption = a
End Sub
Private Sub 开始抽奖_Click()
b = 0
Do While True
a = 1 + Int(Rnd() * 100)
Label1.Caption = a
Dim Savetime As Single
Savetime = Timer
While Timer < Savetime + 0.005
DoEvents
Wend
If b = 1 Then
Exit Do
End If
Loop

End Sub

效果图

(略)(≧︶≦))( ̄▽ ̄ )ゞ