课件制作培训材料144则(二)

42. swf、pdg、ppt用什么软件来打开运行？

swf是用flash软件打开的

pdg用超星阅读器打开的

ppt是用办公软件打开的(Microsoft PowerPoint)

43. 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()

注释：当用户拖动滑动条时，将播放帧数设置为滑动条中的值。

Form2!ShockwaveFlash1.FrameNum=Slider1.Value

EndSub

PrivateSubmnuDisplay0_Click()

注释：将画面大小设置为在控件内保持动画原来比例全部显示

Form2!ShockwaveFlash1.ScaleMode=0

mnuDisplay0.Checked=True

mnuDisplay1.Checked=False

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=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!ShockwaveFlash1.Quality=0

mnuQuality0.Checked=True

mnuQuality1.Checked=False

EndSub

PrivateSubmnuQuality1_Click()

注释：将画面质量设置为高分辨率

Form2!ShockwaveFlash1.Quality=1

mnuQuality0.Checked=False

mnuQuality1.Checked=True

EndSub

PrivateSubmnuZoomIn_Click()

注释：放大画面。

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

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动画时，在播放窗口中单击鼠标右键时，将会弹出如图3所示的菜单。在该菜单，我们可以完成控制Flash动画播放的大部份工作。若想取消该功能，只要将Shockwaveflash控件的Menu属性设置为False即可。

44. 有没有可以把ppt转swf，并保留动画的软件？

用屏幕录像工具，如macromedia的captive，或者别的。基本都是保存成swf的，当然也有一些会保存成exe，你看清楚选择就好。

45. 如何将flash格式和幻灯片格式转成VCD格式的影片？

一款可以把Flash动画转换成VCD的软件。

将Flash动画刻录成VCD

软件名片：SWF2Video Pro V1.0.1.2

下载地址：http://www.cbifamily.com/down/200412/flash/swf2video.rar

特色功能：可以将Flash文件（swf）转换为AVI格式，支持对音频，视频的设置，包括视频压缩。SWF2Video Pro新增对用Flash

MX制作的SWF格式文件的支持；并支持批量转换；可以将SWF文件输出为GIF、PNG、TGA格式的图像序列

软件缺憾：设置较为简单，简单转换尚可；专业应用功能略显不足

诙谐、幽默而又小巧的Flas动画是互联网上最为流行的动画形式，并且有许多免费资源供动漫爱好者下载。遗憾的是，现在电脑网络的普及率问题，许多人还无法直接欣赏到这些可爱的小动画，而电视和VCD机却已相当普及，如果我们能把Flash动画刻录成VCD，就可以让更多的人通过不同的途径享受到电脑网络给人们生活带来的乐趣。SWF2Video Pro是一个非常方便的将Flash转换成AVI文件的软件，操作简单，效果优秀。在各大网站的下载排行榜上都有很好的成绩。下面让我们来体会一下吧！

操作步骤：

把Flash动画刻录成VCD，需要先把下载的Flash动画格式转换成AVI格式，然后通过视频编辑软件进行简单的编辑，转换成VCD的MPGE-1格式，再刻录成VCD光盘。

Step1：将SWF格式的Flash动画转换成AVI文件

运行Swf2Video Pro，点击菜单栏的“打开”，导入一个swf格式的Flash文件。点击“控制/搜索模式”，找到并记住真正需要开始转换的“当前帧”和“结束帧”，便于删去Flash动画开头的“load……”等不需的画面。

点击“文件/创建AVI”，确定AVI文件的名称和路径后，进入“AVI输出选项”窗口，对AVI文件进行一些设置，如图2所示。持续时间：填入通过“搜索模式”确定的“当前帧”和“结束帧”，掐头去尾，控制转换的范围，只选最精彩的；尺寸：取消“使用原始文档大小”，填入352和288，并保留“保持纵横比”，否则有可能使画面变形；视频：选用“未压缩”，以保证AVI文件的质量；也可通过点击“选择”按钮打开“视频压缩”窗口，在“压缩程序”中选择一种压缩方法，如“MicrosoftVideo 1”，这样转换后的AVI文件会小很多；音频：如选用Flash动画本身的声音，则需将“记录用音量”调高，以保证转换后的音量，也可选择音频的品质，如“44100HZ，16位，立体声”、“11025HZ，8位，立体声”等。设置完成后，按“确定”就开始转换，先转换音频再转换视频。

Step2：用Nero刻录软件将AVI文件刻录成VCD

对转换成AVI格式的Flash动画，我们可以用视频编辑软件，如“会声会影”、“VideoPack 5”、甚至是“Premiere”等进行编辑，添加标题、字幕、过渡等效果，这样可以使VCD看上去更加精彩、更加专业。如果我们不需要编辑，就可以直接利用Nero刻录软件将AVI文件刻录成VCD，非常方便。运行“Nero

Express”，选择“视频/图片”，再选择“Video CD”，进入“我的视频CD（VCD）”窗口，点击“添加”，选择并添加需要刻录的AVI文件，然后进入菜单编辑窗口，根据需要进行菜单编排、设定背景和文字按钮，最后按“刻录”就行了。

注意:有时我们下载的Flash动画是.exe格式的，这种格式实际上是内置了Flash播放程序，对这种Flash动画，我们可以用ExeToSwf V1.0将其转换为.swf格式。ExeToSwf是一款免费绿色软件，可在http://www.cbifamily.com/down/200412/flash/exe2swf.rar下载，解压后直接运行，在“SourceFile”框中填入要转换的exe文件路径和名称，点击“Convert”按钮即可很快将exe格式的Flash动画转换成swf格式的Flash动画。

46. PowerPoint to Flash v1.6.8

http://fjxmtt1.crsky.info/skskIi1%29l//pptFlash-v1.68H.rar

PowerPointtoFlash是第一个能够将PowerPoint的*.ppt档转换为Flash的*.swf文件的软件，它支持大量转档，可一次将多个演示文稿档案转换成目前最受欢迎的Flash格式，方便发布于网页，因为Flash只要浏览器就可以开启了，而*.ppt文件需要安装PowerPoint或检视程序。

Name:crsky Code:2883-432A-809A-669D-DBF6-B3BB-C6FC-4E6D

[1] [2]  下一页