PPT制作的一些代码
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
工具栏（滚动文本）：（垂直滚动文本：EnterKeyBehavior：True
MultiLine：True
ScrollBars：2-fmScrollBarsVertical）
（横向滚动文本：ScrollBars：
1-fmScrollBarsHorizontal）
“工具”菜单——“宏”命令
宏：运行一个“宏”（VBA程序，Visual Basic For Application程序）
录制新宏：记录一个“宏”程序，记录完点击停止键停止这个被记录的“宏程序”。
安全性：“宏病毒”的防范方法，可以设为高、中、低不同的档次。Visual Basic编辑器：打开VBA编辑器窗口，编辑录制或编写的VBA 程序。
Microsoft脚本编辑器：打开Microsoft Development Environment
脚本编辑器窗口，用来将当前的PowerPoint
文件转化为HTML语言网页文件，并可进行
编辑。
插入Flash动画：
三种方法：①“插入对象”法
②“超链接”法
③“控件”法（Shockwave Flash Object；Embed Movie：True）
利用命令按钮控制Flash动画：
开始：shockwaveFlash1.Playing = True
暂停：shockwaveFlash1.Playing = False
前进：shockwaveFlash1.FrameNum = shockwaveFlash1.FrameNum +
100
（shockwaveFlash1.Playing = True）
后退：shockwaveFlash1.FrameNum = shockwaveFlash1.FrameNum -
100
（shockwaveFlash1.Playing = True）
返回：shockwaveFlash1.FrameNum = 1
结束：shockwaveFlash1.FrameNum = shockwaveFlash1.TotalFrames
4.
常见视频文件格式及播放器：
Real Video文件：
AVI文件：
MPEG文件：
Microsoft流媒体文件：
QuickTime文件：
插入视频：
三种方法：①“插入对象”法/“插入影片”法
②“超链接”法
③“控件”法
Windows Media Player
RealPlayer G2 Control（Controls：Imagewindow Controlplanel 播放器/按钮）
Apple QuickTime Control 2.0
5.
Microsoft Web浏览器，命令按钮
双击命令按钮，进入VBA编辑窗口，在光标闪烁处，输入如下语句：WebBrowser1.Navigate "" （"绝对路径.htm" ）
1.3.6 VBA制作交互式练习题
1.
开始：ShockwaveFlash1.Playing = True
暂停：ShockwaveFlash1.Playing = False
快进ShockwaveFlash1.FrameNum = ShockwaveFlash1. FrameNum + 60 后退：ShockwaveFlash1.FrameNum = ShockwaveFlash1. FrameNum - 60
返回：ShockwaveFlash1.FrameNum = 1
结束：ShockwaveFlash1.FrameNum = ShockwaveFlash1. TotalFrames - 30
判断正误按纽：
If OptionButton2.Value = True Then
MsgBox "选择正确。", vbOKOnly, "结果"
Else
MsgBox "选择错误！正确答案是“B”！", vbOKOnly, "提示"
End If
重新选择按纽：
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
OptionButton4.Value = False
复选框的选择按纽：
If CheckBox1.Value = True Then
MsgBox "选择错误！", vbOKOnly, "提示"
Else
If CheckBox2.Value = True And CheckBox3.Value = True And CheckBox4.Value = True Then
MsgBox "恭喜您，选择正确！", vbOKOnly, "结果"
Else
MsgBox "抱歉，没有完全选对，加油哦！", vbOKOnly, "提示"
End If
End If