ppt中很有用的代码

2023-05-09 12:10:13 第一文档网 [ 字体：小中大 ] [

阅读： ] [

说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。下载word有问题请添加QQ：admin处理，感谢您的支持与谅解。

【#第一文档网# 导语】以下是®第一文档网的小编为您整理的《ppt中很有用的代码》，欢迎阅读！
有用,代码,ppt

1.工具栏（滚动文本）：（垂直滚动文本： 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语言网页文件，并可进行编辑。 2.插入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

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

MPEG文件：

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

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

RealPlayer G2 Control（Controls：Imagewindow 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.dywdw.cn/8191ab3887c24028915fc312.html