144种制作PPT的技巧

件内置有“开始/倒带”控件，则 Playing 属性可设为 False。

如果不想让动画反复播放，请在 Loop 属性中选择 False（单击单元格以显示向下的箭头，然后单击该箭头并选择 False）。 要嵌入 Flash 文件以便将该演示文稿传递给其他人，请在 EmbedMovie 属性中单击 True。（但是，要运行 Flash 文件，任何运行该演示文稿的计算机都必须注册 Shockwave Flash Object 控件。） 要运行动画：在幻灯片的普通视图下，单击 PowerPoint 窗口左下方的“幻灯片放映”按钮（或按 F5 键，或在“幻灯片放映”菜单上单击“观看放映”）。 要退出幻灯片放映并返回普通视图，请按 ESC 键。

注释 本文所涉及到的第三方产品是由 Microsoft 以外的其他厂商制造的，对于这些产品的性能和可靠性，我们不作任何保证或暗示。 25. ppt中插入.Swf文件，为什么只能播放一遍？

因为你的FLASH有问题，你的FLASH没有设置跳回去的按扭。 26. ppt中插入的swf文件如何从指定处开始播放？

可以用VBA代码来限制开始播放的帧数，怎么编写VBA代码下面有一段在网上引用的教程： 1、窗体、界面设计。

新建工程，选择“工程”菜单下的“部件”命令，在“部件”窗口的“控件”列表中将“Shockwaveflash”、“MicrosoftCommonDialogControl6.0(SP3)”、“MicrosoftWindowsCommonControl6.0(SP3)”前的复选框选中，然后确定。再在窗体中分别加入1个CommonDialog控件、1个Slider控件、3个Label控件、6个CommandButton控件和1个StatusBar控件。其中：

将Form1的“Caption”属性设置为：Flash动画播放器。这是控制窗口。

将CommonDialog1的CancelError设置为True，DialogTitle设置为“打开Flash动画文件”，Filter属性设置为“Flash动画（＊.swf）|＊.swf|”，FilterIndex设置为1，MaxFileSize设置为10240。

将Slider1的SelectRanger的属性设置为“True”，SmallChange属性和LargeChange属性设置为10，TickFrequengcy属性设置为20，TextPosition设置为“1－SldBelowRight”。 将Label(1－3)分别放在Slider1下的左端、中间和右端。其中，Label1的Caption设置为“0帧”，Label2和Label3的Caption设置为空字符串。 6个CommandButton的“名称”属性分别为：cmdOpen、cmdPlay、cmdPause、cmdPre、cmdPreFrame、cmdNextFrame、cmdNext、cmdExit，“Caption”属性分别为：打开、播放、暂停、上一个、上一帧、下一帧、下一个、退出。

在StatusBar上单击鼠标右键，选择“属性”，从弹出的窗口中选择“窗格”页面，用鼠标点击“插入窗格”5次，在索引1－5中分别设置“文本”属性为：“共打开了0个文件”、“状态：”、“等待”、“帧数：”、“0”，再适当设置每一项的“最小宽度”的属性（可参考图1中的

比例）。

进入菜单编辑器（按快捷键Ctrl＋E）。设置第一个菜单标题为“显示控制”，名称为：mnuDisplay；在“显示控制”下设立子菜单标题分别为“全部显示”、“随窗口大小变化”、“缩放至窗口大小”，名称分别为：mnuDisplay0、mnuDisplay1、mnuDisplay2。设置第二个菜单标题为“质量控制”，名称为：mnuQuality；在“质量控制”下设立子菜单标题分别为“低分辨率”、“高分辨率”，名称分别为：mnuQuality0、mnuQuality1。设置第三个菜单标题为“播放控制”，名称为：mnuPlayControl；在“播放控制”下设立子菜单标题分别为“循环播放”、“放大画面”、“缩小画面”，名称分别为：mnuLoopPlay、mnuZoomIn、mnuZoomOut。 选择“工程”菜单下的“添加窗体”命令，新增一个窗体Form2作为播放窗口。在Form2上加入1个ShockwaveFlash控件和1个Timer控件。将Timer1控件的“Interval”属性设置为“20”。 最后，对各窗体、控件的大小、位置进行适当的调整，其大小、位置可参考图1。 2、程序代码

第一步：在Form1的代码窗口中添加以下代码：

DimFileNames()AsString注释：用于保存打开的文件名称。 DimPlayFileNumAsInteger注释：用于计算正在播放的文件序号。 DimTotalFileAsInteger注释：用于统计打开的文件总数。 PrivateSubcmdOpen_Click()注释：打开 OnErrorGoToExitOpen

CommonDialog1.Flags=cdlOFNAllowMultiselectOrcdlOFNFileMustExistOrcdlOFNExplorer CommonDialog1.FileName=〃\

CommonDialog1.ShowOpen注释：显示“打开”对话框。

注释：以vbNullChar作为子字符串的边界分隔字符串CommonDialog1返回的FileName。 FileNames()=Split(CommonDialog1.FileName,vbNullChar) IfUBound(FileNames)=0Then注释：用户只打开了一个文件。 Form2!ShockwaveFlash1.Movie=FileNames(0) TotalFile=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()注释：开始播放

IfTotalFile<1ThenExitSub注释：用户还没有打开文件。 注释：显示Form2开始播放动画。

Form2.Caption=FileNames(PlayFileNum)＋〃－Flash动画播放器〃 Form2.Show

Form2!ShockwaveFlash1.Playing=True IfTotalFile=1ThenPlayFileNum=0 注释：显示状态条的信息。

StatusBar1.Panels(3).Text=〃正在播放文件：〃＋FileNames(PlayFileNum)＋〃...〃 注释：显示滑动条的状态。

Slider1.Max=Form2!ShockwaveFlash1.TotalFrames Label2.Caption=Str(Slider1.Max/2)＋〃帧〃 Label3.Caption=Str(Slider1.Max)＋〃帧〃 EndSub

PrivateSubcmdPause_Click()注释：暂停播放 Form2!ShockwaveFlash1.Stop EndSub

PrivateSubcmdPre_Click()注释：播放上一个文件 IfTotalFile<>1Then注释：当用户打开多于一个文件时 PlayFileNum=PlayFileNum－1

IfPlayFileNum<1ThenPlayFileNum=TotalFile

Form2!ShockwaveFlash1.Movie=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_Click()注释：播放下一个文件 IfTotalFile<>1Then注释：用户打开多于一个文件时 PlayFileNum=PlayFileNum＋1

IfPlayFileNum>TotalFileThenPlayFileNum=1

Form2!ShockwaveFlash1.Movie=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

PrivateSubcmdPreFrame_Click()注释：跳到动画的上一帧 Form2!ShockwaveFlash1.Back EndSub

PrivateSubcmdNextFrame_Click()注释：跳到动画的下一帧 Form2!ShockwaveFlash1.Forward EndSub

PrivateSubcmdExit_Click()注释：退出程序 End EndSub

PrivateSubSlider1_Scroll()