Scribd
Upload
191 views

Extract Flash From Excel

Many times we encounter some flash contents in excel files which may slow down your PC . here are some steps so that you can extract flash content and enjoy as .swf type.

Uploaded by

Happy Ds
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
191 views

Extract Flash From Excel

Many times we encounter some flash contents in excel files which may slow down your PC . here are some steps so that you can extract flash content and enjoy as .swf type.

Uploaded by

Happy Ds
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
You are on page 1/ 3

To Extract SWF Flash animation from Office Excel Sheet

A simple VBA program (a.k.a Visual Basic for Applications) can extract the embedded SWF Flash animation file in less than a minute or so. The VBA / guide has been tested in Office 2003 Professional, and it should be working perfectly in any Office versions / editions too (e.g. the latest Office 2007), provided the Office system has installed the VBA components. 1. 2. Open a new Microsoft Excel document, Click the Tools menu, Marco, Visual Basic Editor. You can also press the ALT+F11 to bring up the VBA editor, While in MS Visual Basic editor, click the View Code icon on the upper-left panel, Copy the VBA program source code at below here and paste it onto the VBA source code editor, Press F5 to execute the VBA source code, An Open File dialog box prompts you to select the Office Excel document that embed the SWF Flash animation file, A message box appears shortly after the Excel file is selected, with a message that says where the extracted SWF Flash animation file is saved in local hard disk !

3.

4.

5. 6.

7.

The extracted SWF Flash animation file ended with SWF file extension, and it can be open/play in a web browser with Shockwave Flash addon (e.g. Flash9e.ocx in IE7). The VBA source code used to extract or retrieve SWF Flash animation files that embedded in Microsoft Office Excel or Word :-

Sub ExtractFlash() Dim tmpFileName As String Dim FileNumber As Integer Dim myFileId As Long Dim MyFileLen As Long Dim myIndex As Long Dim swfFileLen As Long Dim i As Long Dim swfArr() As Byte Dim myArr() As Byte tmpFileName = Application.GetOpenFilename("MS Office File (*.doc;*.xls), *.doc;*.xls", , "Open MS Office file") If tmpFileName = "False" Then Exit Sub myFileId = FreeFile Open tmpFileName For Binary As #myFileId MyFileLen = LOF(myFileId) ReDim myArr(MyFileLen - 1) Get myFileId, , myArr() Close myFileId Application.ScreenUpdating = False i = 0 Do While i < MyFileLen If myArr(i) = &H46 Then If myArr(i + 1) = &H57 And myArr(i + 2) = &H53 Then swfFileLen = 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 - 1 swfArr(myIndex) = myArr(i + myIndex) Next myIndex Exit Do Else i = i + 3 End If Else i = i + 1 End If Loop myFileId = FreeFile tmpFileName = Left(tmpFileName, Len(tmpFileName) - 4) & ".swf" Open tmpFileName For Binary As #myFileId Put #myFileId, , swfArr Close myFileId

MsgBox "Save the extracted SWF Flash as [ " & tmpFileName & " ]" End Sub

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy