PPT实现单页点名的方式

PPT实现单页点名的方式

• 安装OK控件来实现，网上有很多资源，介绍很详细，不赘述。不爽的地方就是还要控件

• 通过PPT 开发工具中的控件来实现

1）office默认是没有把“开发工具”显示出来的。我们可以要把它先显示出来。依次点击 文件-> 选项->自定义功能区 中勾选 开发工具。如图：

2）选取开发工具中的命令按钮（CommandButton），添加到PPT页面中。如图：

3）双击CommandButton1，进入VBA界面下的控件回调函数Sub CommandButton1_Click()

4）在CommandButton1_Click内添加代码

Private Sub CommandButton1_Click()

Randomize
Dim a() As Variant
a = Array("1", "2", "3", "4", "5", "6", "7", "8")
Dim i As Integer
i = Int(8 * Rnd)
CommandButton1.Caption = a(i)
End Sub

5) 修改控件的属性，即，更新控件名字的字体、大小，美化控件。该步骤通过右键在“属性表”中更改。如图：