ppt中插入的swf文件如何从指定处开始播放.docx

1、ppt中插入的swf文件如何从指定处开始播放ppt中插入的swf文件如何从指定处开始播放？可以用VBA代码来限制开始播放的帧数，怎么编写VBA代码下面有一段在网上引用的教程：1、窗体、界面设计。新建工程，选择“工程”菜单下的“部件”命令，在“部件”窗口的“控件”列表中将“Shockwaveflash”、“MicrosoftCommonDialogControl6.0(SP3)”、“MicrosoftWindowsCommonControl6.0(SP3)”前的复选框选中，然后确定。再在窗体中分别加入1个CommonDialog控件、1个Slider控件、3个Label控件、6个CommandB

2、utton控件和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设置为

3、“1SldBelowRight”。将Label(13)分别放在Slider1下的左端、中间和右端。其中，Label1的Caption设置为“0帧”，Label2和Label3的Caption设置为空字符串。6个CommandButton的“名称”属性分别为：cmdOpen、cmdPlay、cmdPause、cmdPre、cmdPreFrame、cmdNextFrame、cmdNext、cmdExit，“Caption”属性分别为：打开、播放、暂停、上一个、上一帧、下一帧、下一个、退出。在StatusBar上单击鼠标右键，选择“属性”，从弹出的窗口中选择“窗格”页面，用鼠标点击“插入窗格”5次，

4、在索引15中分别设置“文本”属性为：“共打开了0个文件”、“状态：”、“等待”、“帧数：”、“0”，再适当设置每一项的“最小宽度”的属性（可参考图1中的比例）。进入菜单编辑器（按快捷键CtrlE）。设置第一个菜单标题为“显示控制”，名称为：mnuDisplay；在“显示控制”下设立子菜单标题分别为“全部显示”、“随窗口大小变化”、“缩放至窗口大小”，名称分别为：mnuDisplay0、mnuDisplay1、mnuDisplay2。设置第二个菜单标题为“质量控制”，名称为：mnuQuality；在“质量控制”下设立子菜单标题分别为“低分辨率”、“高分辨率”，名称分别为：mnuQuality0、

5、mnuQuality1。设置第三个菜单标题为“播放控制”，名称为：mnuPlayControl；在“播放控制”下设立子菜单标题分别为“循环播放”、“放大画面”、“缩小画面”，名称分别为：mnuLoopPlay、mnuZoomIn、mnuZoomOut。选择“工程”菜单下的“添加窗体”命令，新增一个窗体Form2作为播放窗口。在Form2上加入1个ShockwaveFlash控件和1个Timer控件。将Timer1控件的“Interval”属性设置为“20”。最后，对各窗体、控件的大小、位置进行适当的调整，其大小、位置可参考图1。2、程序代码第一步：在Form1的代码窗口中添加以下代码：DimF

6、ileNames()AsString注释：用于保存打开的文件名称。DimPlayFileNumAsInteger注释：用于计算正在播放的文件序号。DimTotalFileAsInteger注释：用于统计打开的文件总数。PrivateSubcmdOpen_Click()注释：打开OnErrorGoToExitOpenCommonDialog1.Flags=cdlOFNAllowMultiselectOrcdlOFNFileMustExistOrcdlOFNExplorerCommonDialog1.FileName=CommonDialog1.ShowOpen注释：显示“打开”对话框。注释：以v

7、bNullChar作为子字符串的边界分隔字符串CommonDialog1返回的FileName。FileNames()=Split(CommonDialog1.FileName,vbNullChar)IfUBound(FileNames)=0Then注释：用户只打开了一个文件。Form2!ShockwaveFlash1.Movie=FileNames(0)TotalFile=1PlayFileNum=0Else注释：用户打开了多于一个文件。Form2!ShockwaveFlash1.Movie=FileNames(0)FileNames(1)TotalFile=UBound(FileNames

8、)PlayFileNum=1EndIfStatusBar1.Panels(1).Text=共打开了Trim(Str(TotalFile)个文件cmdPlay_ClickExitOpen:EndSubPrivateSubcmdPlay_Click()注释：开始播放IfTotalFile1ThenExitSub注释：用户还没有打开文件。注释：显示Form2开始播放动画。Form2.Caption=FileNames(PlayFileNum)Flash动画播放器Form2.ShowForm2!ShockwaveFlash1.Playing=TrueIfTotalFile=1ThenPlayFileN

9、um=0注释：显示状态条的信息。StatusBar1.Panels(3).Text=正在播放文件：FileNames(PlayFileNum).注释：显示滑动条的状态。Slider1.Max=Form2!ShockwaveFlash1.TotalFramesLabel2.Caption=Str(Slider1.Max/2)帧Label3.Caption=Str(Slider1.Max)帧EndSubPrivateSubcmdPause_Click()注释：暂停播放Form2!ShockwaveFlash1.StopEndSubPrivateSubcmdPre_Click()注释：播放上一个文件

10、IfTotalFile1Then注释：当用户打开多于一个文件时PlayFileNum=PlayFileNum1IfPlayFileNum1ThenPlayFileNum=TotalFileForm2!ShockwaveFlash1.Movie=FileNames(0)FileNames(PlayFileNum)EndIf注释：显示播放状态的信息。StatusBar1.Panels(3).Text=正在播放文件：FileNames(PlayFileNum).Slider1.Max=Form2!ShockwaveFlash1.TotalFramesForm2.Caption=FileNames(P

11、layFileNum)Flash动画播放器Label2.Caption=Str(Slider1.Max/2)帧Label3.Caption=Str(Slider1.Max)帧EndSubPrivateSubcmdNext_Click()注释：播放下一个文件IfTotalFile1Then注释：用户打开多于一个文件时PlayFileNum=PlayFileNum1IfPlayFileNumTotalFileThenPlayFileNum=1Form2!ShockwaveFlash1.Movie=FileNames(0)FileNames(PlayFileNum)EndIf注释：显示播放状态的信息

12、。StatusBar1.Panels(3).Text=正在播放文件：FileNames(PlayFileNum).Slider1.Max=Form2!ShockwaveFlash1.TotalFramesForm2.Caption=FileNames(PlayFileNum)Flash动画播放器Label2.Caption=Str(Slider1.Max/2)帧Label3.Caption=Str(Slider1.Max)帧EndSubPrivateSubcmdPreFrame_Click()注释：跳到动画的上一帧Form2!ShockwaveFlash1.BackEndSubPrivateS

13、ubcmdNextFrame_Click()注释：跳到动画的下一帧Form2!ShockwaveFlash1.ForwardEndSubPrivateSubcmdExit_Click()注释：退出程序EndEndSubPrivateSubSlider1_Scroll()注释：当用户拖动滑动条时，将播放帧数设置为滑动条中的值。Form2!ShockwaveFlash1.FrameNum=Slider1.ValueEndSubPrivateSubmnuDisplay0_Click()注释：将画面大小设置为在控件内保持动画原来比例全部显示Form2!ShockwaveFlash1.ScaleMode

14、=0mnuDisplay0.Checked=TruemnuDisplay1.Checked=FalsemnuDisplay2.Checked=FalseEndSubPrivateSubmnuDisplay1_Click()注释：将画面的缩放设置为随控件横向（或纵向）的缩放而变化Form2!ShockwaveFlash1.ScaleMode=1mnuDisplay0.Checked=FalsemnuDisplay1.Checked=TruemnuDisplay2.Checked=FalseEndSubPrivateSubmnuDisplay2_Click()注释：将画面大小设置为不理会动画原来比

15、例缩放至控件大小Form2!ShockwaveFlash1.ScaleMode=2mnuDisplay0.Checked=FalsemnuDisplay1.Checked=FalsemnuDisplay2.Checked=TrueEndSubPrivateSubmnuLoopPlay_Click()注释：将播放方式设置为循环或不循环。mnuLoopPlay.Checked=NotmnuLoopPlay.CheckedForm2!ShockwaveFlash1.Loop=NotForm2!ShockwaveFlash1.LoopEndSubPrivateSubmnuQuality0_Click(

16、)注释：将画面质量设置为低分辨率Form2!ShockwaveFlash1.Quality=0mnuQuality0.Checked=TruemnuQuality1.Checked=FalseEndSubPrivateSubmnuQuality1_Click()注释：将画面质量设置为高分辨率Form2!ShockwaveFlash1.Quality=1mnuQuality0.Checked=FalsemnuQuality1.Checked=TrueEndSubPrivateSubmnuZoomIn_Click()注释：放大画面。Form2!ShockwaveFlash1.Zoom(50)End

17、SubPrivateSubmnuZoomOut_Click()注释：缩小画面。Form2!ShockwaveFlash1.Zoom(200)EndSubPrivateSubForm_Unload(CancelAsInteger)End注释：结束程序EndSub第二步：在Form2的代码窗口中添加以下代码：PrivateSubForm_Resize()注释：将ShockwaveFlash1控件的大小设置为Form2的大小。ShockwaveFlash1.Top=Form2.ScaleTopShockwaveFlash1.Left=Form2.ScaleLeftShockwaveFlash1.Wi

18、dth=Form2.ScaleWidthShockwaveFlash1.Height=Form2.ScaleHeightEndSubPrivateSubTimer1_Timer()注释：在状态栏和滑动条上显示当前播放的帧。Form1!StatusBar1.Panels(5).Text=Str(ShockwaveFlash1.FrameNum)Form1!Slider1.Value=ShockwaveFlash1.FrameNumEndSub第三步：调试、运行程序，运行界面如图2所示。当播放Flash动画时，在播放窗口中单击鼠标右键时，将会弹出如图3所示的菜单。在该菜单，我们可以完成控制Flash动画播放的大部份工作。若想取消该功能，只要将Shockwaveflash控件的Menu属性设置为False即可。