PPT制作技术,做出让观众倾倒的演示文档.pdf
《PPT制作技术,做出让观众倾倒的演示文档.pdf》由会员分享,可在线阅读,更多相关《PPT制作技术,做出让观众倾倒的演示文档.pdf(27页珍藏版)》请在淘文阁 - 分享文档赚钱的网站上搜索。
1、文档来源为:从网络收集整理.word 版本可编辑.欢迎下载支持.1 PPT 制作技术,做出让观众倾倒的演示文档 视频插入 超链接(选中对象-右击“超链接”);直接插入视频(插入-影片-文件中的影片);对象法(插入-对象-由文件创建;动作-对象动作-激活内容);控件法(开发工具-控件-其他控件-windows media player)。(视频格式,常见的为 asf,avi,wma,mpeg)FLASH 插入 超链接法(选中对象-右击“超链接”);对象法(插入-对象-由文件创建;动作-对象动作-激活内容);复制粘贴法(复制粘贴;动作-对象动作-激活内容);控件法(开发工具-控件-其他控件-Sho
2、ckwave Flash Object)。在取值栏(Movie 旁边的空白单元格)中,键入要播放的 Flash 文件的完整驱动路径(包括文件名在内。例如,C:My DocumentsMyFile.swf)或统一资源定位器(URL)。要设置动画播放的特定选项,请执行以下操作,完成后关闭“属性”对话框:确保 Playing 属性设为 True。该设置使幻灯片显示时自动播放动画文件。如果 Flash 文件内置有“开始/倒带”控件,则 Playing 属性可设为 False。如果不想让动画反复播放,请在Loop属性中选择False(单击单元格以显示向下的箭头,然后单击该箭头并选择 False)。要嵌入
3、Flash文件以便将该演示文稿传递给其他人,请在EmbedMovie属性中单击True。(但是,要运行 Flash 文件,任何运行该演示文稿的计算机都必须注册 Shockwave Flash Object 控件。)如何控制 PPT 中 flash 的播放?命令按钮(Active X 控件)Private Sub CommandButton1_Click()ShockwaveFlash1.Playing=True End Sub 播放 Private Sub CommandButton2_Click()ShockwaveFlash1.Playing=False End Sub 暂停 Privat
4、e Sub CommandButton3_Click()ShockwaveFlash1.FrameNum=1 ShockwaveFlash1.Playing=True End Sub 重播 Private Sub CommandButton4_Click()ShockwaveFlash1.FrameNum=ShockwaveFlash1.FrameNum-50 ShockwaveFlash1.Playing=True End Sub 后退 Private Sub CommandButton5_Click()文档来源为:从网络收集整理.word 版本可编辑.欢迎下载支持.2 ShockwaveF
5、lash1.FrameNum=ShockwaveFlash1.FrameNum+50 ShockwaveFlash1.Playing=True End Sub 前进 Private Sub CommandButton6_Click()Dim a As Integer For a=1 To 1000 ShockwaveFlash1.FrameNum=ShockwaveFlash1.FrameNum+1 If a ShockwaveFlash1.FrameNum Then ShockwaveFlash1.Playing=False Else ShockwaveFlash1.Playing=True
6、 Next End Sub 最后 ppt 中插入的 swf 文件如何从指定处开始播放?可以用 VBA 代码来限制开始播放的帧数,怎么编写 VBA 代码下面有一段在网上引用的教程:1、窗体、界面设计。新建工程“工程”“部件”命令,在“部件”窗口的“控件”列表中将“Shockwaveflash”、“MicrosoftCommonDialogControl6.0(SP3)”、“MicrosoftWindowsCommonControl6.0(SP3)”前的复选框选中,然后确定。再在窗体中分别加入 1 个 CommonDialog 控件、1 个 Slider控件、3 个 Label 控件、6 个 Co
7、mmandButton 控件和 1 个 StatusBar 控件。其中:将 Form1 的“Caption”属性设置为:Flash 动画播放器。这是控制窗口。将CommonDialog1的CancelError设置为True,DialogTitle设置为“打开Flash动画文件”,Filter 属性设置为“Flash 动画(.swf)|.swf|”,FilterIndex 设置为 1,MaxFileSize 设置为 10240。将 Slider1 的 SelectRanger 的属性设置为“True”,SmallChange 属性和 LargeChange 属性设置为 10,TickFrequ
8、engcy 属性设置为 20,TextPosition 设置为“1SldBelowRight”。将 Label(13)分别放在 Slider1 下的左端、中间和右端。其中,Label1 的 Caption 设置为“0 帧”,Label2 和 Label3 的 Caption 设置为空字符串。6 个 CommandButton 的“名称”属性分别为:cmdOpen、cmdPlay、cmdPause、cmdPre、cmdPreFrame、cmdNextFrame、cmdNext、cmdExit,“Caption”属性分别为:打开、播放、暂停、上一个、上一帧、下一帧、下一个、退出。在 StatusB
9、ar 上单击鼠标右键,选择“属性”,从弹出的窗口中选择“窗格”页面,用鼠标点击“插入窗格”5 次,在索引 15 中分别设置“文本”属性为:“共打开了 0 个文件”、“状态:”、“等待”、“帧数:”、“0”,再适当设置每一项的“最小宽度”的属性(可参考图 1中的比例)。进入菜单编辑器(按快捷键 CtrlE)。设置第一个菜单标题为“显示控制”,名称为:mnuDisplay;在“显示控制”下设立子菜单标题分别为“全部显示”、“随窗口大小变化”、“缩放至窗口大小”,名称分别为:mnuDisplay0、mnuDisplay1、mnuDisplay2。设置第二个文档来源为:从网络收集整理.word 版本可
10、编辑.欢迎下载支持.3 菜单标题为“质量控制”,名称为:mnuQuality;在“质量控制”下设立子菜单标题分别为“低分辨率”、“高分辨率”,名称分别为:mnuQuality0、mnuQuality1。设置第三个菜单标题为“播放控制”,名称为:mnuPlayControl;在“播放控制”下设立子菜单标题分别为“循环播放”、“放大画面”、“缩小画面”,名称分别为:mnuLoopPlay、mnuZoomIn、mnuZoomOut。选择“工程”菜单下的“添加窗体”命令,新增一个窗体 Form2 作为播放窗口。在 Form2上加入 1 个 ShockwaveFlash 控件和 1 个 Timer 控件
11、。将 Timer1 控件的“Interval”属性设置为“20”。最后,对各窗体、控件的大小、位置进行适当的调整,其大小、位置可参考图 1。2、程序代码 第一步:在 Form1 的代码窗口中添加以下代码:DimFileNames()AsString 注释:用于保存打开的文件名称。DimPlayFileNumAsInteger 注释:用于计算正在播放的文件序号。DimTotalFileAsInteger 注释:用于统计打开的文件总数。PrivateSubcmdOpen_Click()注释:打开 OnErrorGoToExitOpen CommonDialog1.Flags=cdlOFNAllow
12、MultiselectOrcdlOFNFileMustExistOrcdlOFNExplorer CommonDialog1.FileName=”CommonDialog1.ShowOpen 注释:显示“打开”对话框。注释:以 vbNullChar 作为子字符串的边界分隔字符串 CommonDialog1 返回的 FileName。FileNames()=Split(CommonDialog1.FileName,vbNullChar)IfUBound(FileNames)=0Then 注释:用户只打开了一个文件。Form2!ShockwaveFlash1.Movie=FileNames(0)T
13、otalFile=1 PlayFileNum=0 Else 注释:用户打开了多于一个文件。Form2!ShockwaveFlash1.Movie=FileNames(0)FileNames(1)TotalFile=UBound(FileNames)PlayFileNum=1 EndIf StatusBar1.Panels(1).Text=共打开了Trim(Str(TotalFile)个文件 cmdPlay_Click ExitOpen:EndSub PrivateSubcmdPlay_Click()注释:开始播放 IfTotalFile1ThenExitSub 注释:用户还没有打开文件。注释:
14、显示 Form2 开始播放动画。Form2.Caption=FileNames(PlayFileNum)Flash 动画播放器 Form2.Show Form2!ShockwaveFlash1.Playing=True IfTotalFile=1ThenPlayFileNum=0 注释:显示状态条的信息。文档来源为:从网络收集整理.word 版本可编辑.欢迎下载支持.4 StatusBar1.Panels(3).Text=正在播放文件:FileNames(PlayFileNum).注释:显示滑动条的状态。Slider1.Max=Form2!ShockwaveFlash1.TotalFrames
15、 Label2.Caption=Str(Slider1.Max/2)帧 Label3.Caption=Str(Slider1.Max)帧 EndSub PrivateSubcmdPause_Click()注释:暂停播放 Form2!ShockwaveFlash1.Stop EndSub PrivateSubcmdPre_Click()注释:播放上一个文件 IfTotalFile1Then 注释:当用户打开多于一个文件时 PlayFileNum=PlayFileNum1 IfPlayFileNum1ThenPlayFileNum=TotalFile Form2!ShockwaveFlash1.M
16、ovie=FileNames(0)FileNames(PlayFileNum)EndIf 注释:显示播放状态的信息。StatusBar1.Panels(3).Text=正在播放文件:FileNames(PlayFileNum).Slider1.Max=Form2!ShockwaveFlash1.TotalFrames Form2.Caption=FileNames(PlayFileNum)Flash 动画播放器 Label2.Caption=Str(Slider1.Max/2)帧 Label3.Caption=Str(Slider1.Max)帧 EndSub PrivateSubcmdNext
17、_Click()注释:播放下一个文件 IfTotalFile1Then 注释:用户打开多于一个文件时 PlayFileNum=PlayFileNum1 IfPlayFileNumTotalFileThenPlayFileNum=1 Form2!ShockwaveFlash1.Movie=FileNames(0)FileNames(PlayFileNum)EndIf 注释:显示播放状态的信息。StatusBar1.Panels(3).Text=正在播放文件:FileNames(PlayFileNum).Slider1.Max=Form2!ShockwaveFlash1.TotalFrames F
18、orm2.Caption=FileNames(PlayFileNum)Flash 动画播放器 Label2.Caption=Str(Slider1.Max/2)帧 Label3.Caption=Str(Slider1.Max)帧 EndSub PrivateSubcmdPreFrame_Click()注释:跳到动画的上一帧 Form2!ShockwaveFlash1.Back EndSub PrivateSubcmdNextFrame_Click()注释:跳到动画的下一帧 Form2!ShockwaveFlash1.Forward EndSub PrivateSubcmdExit_Click(
19、)注释:退出程序 End EndSub 文档来源为:从网络收集整理.word 版本可编辑.欢迎下载支持.5 PrivateSubSlider1_Scroll()注释:当用户拖动滑动条时,将播放帧数设置为滑动条中的值。Form2!ShockwaveFlash1.FrameNum=Slider1.Value EndSub PrivateSubmnuDisplay0_Click()注释:将画面大小设置为在控件内保持动画原来比例全部显示 Form2!ShockwaveFlash1.ScaleMode=0 mnuDisplay0.Checked=True mnuDisplay1.Checked=Fals
20、e mnuDisplay2.Checked=False EndSub PrivateSubmnuDisplay1_Click()注释:将画面的缩放设置为随控件横向(或纵向)的缩放而变化 Form2!ShockwaveFlash1.ScaleMode=1 mnuDisplay0.Checked=False mnuDisplay1.Checked=True mnuDisplay2.Checked=False EndSub PrivateSubmnuDisplay2_Click()注释:将画面大小设置为不理会动画原来比例缩放至控件大小 Form2!ShockwaveFlash1.ScaleMode=
21、2 mnuDisplay0.Checked=False mnuDisplay1.Checked=False mnuDisplay2.Checked=True EndSub PrivateSubmnuLoopPlay_Click()注释:将播放方式设置为循环或不循环。mnuLoopPlay.Checked=NotmnuLoopPlay.Checked Form2!ShockwaveFlash1.Loop=NotForm2!ShockwaveFlash1.Loop EndSub PrivateSubmnuQuality0_Click()注释:将画面质量设置为低分辨率 Form2!Shockwave
22、Flash1.Quality=0 mnuQuality0.Checked=True mnuQuality1.Checked=False EndSub PrivateSubmnuQuality1_Click()注释:将画面质量设置为高分辨率 Form2!ShockwaveFlash1.Quality=1 mnuQuality0.Checked=False mnuQuality1.Checked=True EndSub PrivateSubmnuZoomIn_Click()注释:放大画面。文档来源为:从网络收集整理.word 版本可编辑.欢迎下载支持.6 Form2!ShockwaveFlash1
23、.Zoom(50)EndSub PrivateSubmnuZoomOut_Click()注释:缩小画面。Form2!ShockwaveFlash1.Zoom(200)EndSub PrivateSubForm_Unload(CancelAsInteger)End 注释:结束程序 EndSub 第二步:在 Form2 的代码窗口中添加以下代码:PrivateSubForm_Resize()注释:将 ShockwaveFlash1 控件的大小设置为 Form2 的大小。ShockwaveFlash1.Top=Form2.ScaleTop ShockwaveFlash1.Left=Form2.Sca
24、leLeft ShockwaveFlash1.Width=Form2.ScaleWidth ShockwaveFlash1.Height=Form2.ScaleHeight EndSub PrivateSubTimer1_Timer()注释:在状态栏和滑动条上显示当前播放的帧。Form1!StatusBar1.Panels(5).Text=Str(ShockwaveFlash1.FrameNum)Form1!Slider1.Value=ShockwaveFlash1.FrameNum EndSub 第三步:调试、运行程序,运行界面如图 2 所示。当播放 Flash 动画时,在播放窗口中单击鼠标
25、右键时,将会弹出如图 3 所示的菜单。在该菜单,我们可以完成控制Flash动画播放的大部份工作。若想取消该功能,只要将Shockwaveflash控件的 Menu 属性设置为 False 即可。PPT 鲜为人知的秘密 在普通视图下,Ctrl+“幻灯片放映”:缩略图放映 Ctrl+Shift+”幻灯片浏览视图”:大纲视图 Shift+“幻灯片放映”:设置幻灯片放映方式 Shift+“普通视图”:打开母板视图 Shift+“幻灯片浏览视图”:打开打印母版视图 Shift+Ctrl+“普通视图”:仅幻灯片的视图 Alt+D+V 实现幻灯片的非全屏播放。两幅图片同时动作 PowerPoint 的动画效
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- PPT 制作 技术 做出 观众 倾倒 演示 文档
限制150内