VB调用PowerPoint工具 1.0 中文绿色版 下载-

第一种方法，工具---宏--VB编辑器

第二种方法，视图---工具栏---控件工具箱，现在就可以把工具箱里面的控件，点一下，然后在PPT白板上拖放，在上面双击鼠标，就可以编写相应代码。

用“控件工具箱”的“命令按钮”在幻灯片上添加一个按钮，并将其“Caption”属性修改为“判断”（或其他字符）。再双击该按钮，进入“Visual Basic编辑器”状态（如图4），将下述代码输入到出现的一组代码中间，输入完成后，关闭窗口返回。

If CheckBox1.Value = True And CheckBox4.Value = True Then MsgBox "选择正确。", vbOKOnly, "结果" Else

If CheckBox1.Value = True Or CheckBox4.Value = True Then MsgBox “选对了一个。”, vbOKOnly, “提示” Else

MsgBox "选择错误！正确答案是“水和干冰”！", vbOKOnly, "提示" End If End If

小贴士：上述代码的含义是，如果（If）选择了第1和第4项（CheckBox1.Value = True And CheckBox4.Value = True），按下“判断”按钮，则弹出如图3所示界面和消息（MsgBox）框（选择错误！正确答案是“水和干冰”！——消息内容；vbOKOnly——消息框中仅显示出一个“确定”按钮；提示——消息框标题）。