(PPT制作的一些代码.docVIP

工具栏（滚动文本）：（垂直滚动文本：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 CheckB