如何实现点击功能

[weixin_41730653]

Private Sub CommandButton1_Click()
Dim aa As Integer
aa = MsgBox("你选的是“张三”，确定吗", vbOKCancel)
If aa = vbOK Then
TextBox1.Text = TextBox1.Text + 1
End If
End Sub
这段代码在调试时实现了文本框数字加1，现在请教各位大神，如何在PPT中通过点击的方式实现以上代码的功能

[dsd999]

在ppt里试过这个代码吗？