1
新建一个excel文档,在“开发工具”选项卡下面单击“vb”按钮,进入编程状态,单击“插入”菜单下的“模块”命令,在d出的窗口中粘贴下面红代码:
2
Sub ExtractFlash()Dim tmpFileName As String, FileNumber As IntegerDim myFileId As LongDim myArr() As ByteDim i As LongDim MyFileLen As Long, myIndex As LongDim swfFileLen As LongDim swfArr() As BytetmpFileName = ApplicationGetOpenFilename("office File(doc;xls),doc;xls", , "确定要分析的 Office 档")If tmpFileName = "False" Then Exit SubmyFileId = FreeFileOpen tmpFileName For Binary As #myFileIdMyFileLen = LOF(myFileId)ReDim myArr(MyFileLen - 1)Get myFileId, , myArr()Close myFileIdApplicationScreenUpdating = Falsei = 0Do While i < MyFileLenIf myArr(i) = &H46 ThenIf myArr(i + 1) = &H57 And myArr(i + 2) = &H53 ThenswfFileLen = CLng(&H1000000) myArr(i + 7) + CLng(&H10000) myArr(i + 6) + CLng(&H100) myArr(i + 5) + myArr(i + 4)ReDim swfArr(swfFileLen - 1)For myIndex = 0 To swfFileLen - 1swfArr(myIndex) = myArr(i + myIndex)Next myIndexExit DoElsei = i + 3End IfElsei = i + 1End IfLoopmyFileId = FreeFiletmpFileName = Left(tmpFileName, Len(tmpFileName) - 4) & "swf"Open tmpFileName For Binary As #myFileIdPut #myFileId, , swfArrClose myFileIdMsgBox "以" & tmpFileName & "名字保存"End Sub
3
粘贴好了以后返回到excel主界面,把该excel文档起一个你容易辨识的名字,保存为“启用宏的工作簿”,留着用来提取swf文件。打开嵌入了swf文件的ppt,在swf文件上右键单击,选择复制,新建一个excel文件,在新建的excel文件里右键“粘贴”,把ppt里的swf文件复制过来,起个名字,保存为excel 97—2003工作薄(这里面的版本选择很重要,不要选错),保存好了关闭该excel。
4
打开我们第一个粘贴有代码的excel文档,在“开发工具”下,单击“宏”,d出宏对话框,单击“执行”,在打开的窗口中选择粘贴有swf文件的excel文件,大功告成,里面的swf马上就会被提取出来,不信,你试试!
原因:没有添加控件。
1、首先打开需要编辑的PPT幻灯片。进入到编辑页面中。
2、然后在编辑的窗口中点击打开主菜单栏开发工具中的“其他控件”图标按钮。
3、然后在d出来的窗口中点击打开“注册自定义控件”选项。
4、然后在d出来的窗口中点击选择 C:\WINDOWS\system32\Macromed\Flash目录下去选择ocx文件。
5、然后就完成了。
基本方法是选择菜单“工具→控件工具箱→ShockwaveFlash
Object”,然后在地址栏位置输入Flash动画文件的路径。这种插入Flash动画的方法有一个缺点是在播放幻灯片时,Flash动画会自动播放,不能自主地控制。
近日,我发现在PowerPoint中插入Flash动画的另一种方法,可以避免出现自动播放动画的情况。
1、先打开一幻灯片,选择“插入→对象”,在出现的对话框中选择单选框“由文件创建”,这时对话框要求填入文件的位置,单击[浏览],选中需要插入的Flash动画文件,最后单击[确定]返回幻灯片。
2、这时,在幻灯片上就出现了一个Flash文件的图标,我们可以更改图标的大小或者移动它的位置,然后在这图标上右击鼠标,选中“动作设置”。在“单击鼠标时的动作”中选中“超级链接到”,然后在下拉列表中选择“其他文件”。
3、这时在出现的超链接对话框中输入与之相对应的动画文件,单击[确定],设置完成。
现在我们来播放幻灯片,Flash动画没有自动播放,我们需用鼠标点击这个Flash文件图标,这时会出现一个对话框,我们单击[确定],此时才会播放动画,不需要时直接单击[关闭]按钮即可。
小提示:后来我发现这种方法也有它的缺陷,那就是不能设置它的播放区域,总是一播放就是原文件的大小,有时就把其他的内容给遮住了,所以您要用的时候要看好是不是符合自己的需要。ppt是幻灯片,用Microsoft Office PowerPoint 2003 打开
SWF是FLASH动画! 用Macromedia Flash Player 8或者IE都可以打开
ASP是动态网页文件,用DW或者IE都可以打开!1、将SWF文件与PPT文件放在一个文件包中。2、视图-工具栏-控件工具箱。3、在d出的面板上找到最后一个按纽“其他控件”--在d出的下列框中找到字母S开头的“shockwave flash object”点选。4、在PPT中插入的地方画框,此处就是呈现FLASH的地方。5、双击形成的带X的方框,出现若干窗口,找到属性窗口。6、在窗口中找到“自定义”,点它,它右边一格会出现带省略号的按纽。7、点按纽,在d出的窗口中第一格中填上插入SWF文件的名字(文件主名+扩展名SWF,例、donghuaswf),按确定后,关闭可见窗口,回到PPT,就成功了,点放映,就行了。8、如果你想让swf文件嵌入PPT中后,在PPT文件移动时,不再移动SWF的原文件,嵌入的SWF也能正常播放,则需要加入如下命令:打开“属性窗口”“Allow Script Access”选项的值输入“Always”;“Embed Movie”选项的值设为“True”;“Movie”选项的值设为“Window”;这样就可以了。
1、首先插入控件:开发工具--控件,“其他控件”,找到Shockwave Flash Object,插入;
2、设置插入控件的Movie属性,输入Swf文件的路径及文件名:右击插入的控件,“属性表”,设置Movie属性。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)