ppt中很有用的代码

时间:2023-05-09 12:10:13 阅读: 最新文章 文档下载
说明:文章内容仅供预览,部分内容可能不全。下载后的文档,内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的,是否完整无缺。
1.工具栏(滚动文本):(垂直滚动文本: EnterKeyBehaviorTrue MultiLineTrue

ScrollBars2-fmScrollBarsVertical (横向滚动文本:

ScrollBars1-fmScrollBarsHorizontal 工具菜单——“命令

宏:运行一个VBA程序,Visual Basic For Application程序)

录制新宏:记录一个程序,记录完点击停止键停止这个被记录的宏程序 安全性:宏病毒的防范方法,可以设为高、中、低不同的档次。

Visual Basic编辑器:打开VBA编辑器窗口,编辑录制或编写的VBA程序。

Microsoft脚本编辑器:打开Microsoft Development Environment脚本编辑器窗口,用来将当前的PowerPoint文件转化为HTML语言网页文件,并可进行编辑。 2.插入Flash动画:

三种方法:①插入对象 超链接

控件法(Shockwave Flash ObjectEmbed MovieTrue 利用命令按钮控制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

3.常见视频文件格式及播放器: Real Video文件: AVI文件:

MPEG文件:

Microsoft流媒体文件: QuickTime文件: 插入视频:

三种方法:①插入对象/“插入影片 超链接 控件 Windows Media Player

RealPlayer G2 ControlControlsImagewindow Controlplanel 播放器/按钮) Apple QuickTime Control 2.0 4.

Microsoft Web浏览器,命令按钮

双击命令按钮,进入VBA编辑窗口,在光标闪烁处,输入如下语句: WebBrowser1.Navigate " http://www.baidu.com" "绝对路径.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


本文来源:https://www.wddqw.com/doc/8191ab3887c24028915fc312.html