1200字范文,内容丰富有趣,写作的好帮手!
1200字范文 > VBA实现触发器过程制作填空题等交互式课件

VBA实现触发器过程制作填空题等交互式课件

时间:2024-07-28 19:43:16

相关推荐

VBA实现触发器过程制作填空题等交互式课件

powerpoint达人又跟大家见面了,各种powerpoint小技巧都会每天发布,很多小技巧可以帮助我们解决很多问题,再也不要去powerpoint城花冤枉钱啦!

幻灯片不仅可以演示表达我们意愿,传输我们的思想,也可以与观众互动,如此一来可以激发他们的学习兴趣。而互动式幻灯片种类颇多,比如填空式的(触发器类),在以往可能会采用很复杂的方法实现,费时费力。而今天为大家介绍的是使用VBA来实现触发器过程,从事相关工作或是有此需求的朋友可以借此机会学习下哦,希望本教程对大家有所帮助。

1、在相应的演示文稿中,添加一张空白幻灯片。并用文本框输入填空题的题目内容(参见图六)。

2、执行“视图→工具栏→控件工具箱”命令,展开“控件工具箱”工具条(参见图六)。单击工具条上的“文本框”按钮,然后在填空题的空格处拖拉出一个控件文本框来(参见图六)。

注意:选中文本框,单击工具条上的“属性”按钮,展开“文本框”属性对话框(参见图七),选中“font”选项,然后点击后面“…”号,可以打开“字体”对话框,设置字体、字型、字号;选中“TextAlig”选项,然后按其右侧的下拉按钮,即可设置文本的对齐方式。

3、再单击工具条上的“命令按钮”按钮,然后在幻灯片合适位置上拖拉出一个按钮来(参见图七)。选中此按钮,单击工具条上的“属性”按钮,展开“命令按钮”属性对话框(参见图七),将其中的“Caption”选项后面的内容修改为“查看结果”(具体修改内容,请根据需要确定),并关闭属性窗口。

4、双击插入的命令按钮,进入VBA编辑窗口(如图八),在“Private Sub CommandButton1_Click()”和“End Sub”语句之间,输入下述代码:

If = "物理" Thenhd = MsgBox("你填对了",vbOKCancel, "结果")Elsehd = MsgBox("你填错了", vbOKCancel, "结果")End If

代码输入完成后的效果请参见图八。

注意:①代码中的“hd”为自定义变量,可以用其他字母代码。②根据实际需要,可以将代码中的相应的字符替换成其他字符。

5、关闭VBA编辑窗口。

制作完成,赶快按下F5功能键,检查一下实际效果吧(图九是演示的效果)!

本内容不代表本网观点和政治立场,如有侵犯你的权益请联系我们处理。
网友评论
网友评论仅供其表达个人看法,并不表明网站立场。