Cómo eliminar flash de ppt

Cree un nuevo documento de Excel, haga clic en el botón "vb" en la pestaña "Herramientas de desarrollo", ingrese al estado de programación, haga clic en el comando "Módulo" en el menú "Insertar" y péguelo en el cuadro emergente. ventana de inicio El siguiente código:

Sub ExtractFlash()

Dim tmpFileName As String, FileNumber As Integer

Dim myFileId As Long Dim myArr() As Byte Atenuar i mientras

Atenuar MyFileLen mientras, myIndex mientras

Atenuar swfFileLen mientras atenuar swfArr() como byte

tmpFileName = Application.GetOpenFilename(" office File(* .doc;*.xls),*.doc;*.xls", , "

Determine el archivo de Office a analizar") Si tmpFileName = "False" Entonces salga de Sub

myFileId = FreeFile

Abrir tmpFileName para binario como #myFileId

MyFileLen = LOF(myFileId) ReDim myArr(MyFileLen - 1)

Obtener myFileId, , myArr()

Cerrar myFileId

Application.ScreenUpdating = False

i = 0

Hacer mientras i < MyFileLen

Si myArr(i) = &H46 Entonces

Si myArr(i + 1) = &H57 Y myArr(i + 2) = &H53 Entonces

swfFileLen = CLng (&H1000000) * miArr (i + 7) + CLng(&H10000) * miArr(i + 6) +

CLng(&H100) * miArr(i + 5) + miArr(i + 4)

ReDim swfArr(swfFileLen - 1)

Para myIndex = 0 Para swfFileLen - 1

swfArr(myIndex) = myArr(i + myIndex)

Siguiente myIndex

Salir Hacer

Si no i = i + 3

Finalizar si no

i = i + 1

Finalizar si

Bucle

myFileId = FreeFile

tmpFileName = Left(tmpFileName, Len(tmpFileName) - 4) & ".swf"

Abrir tmpFileName para binario como #myFileId

Poner #myFileId, , swfArr

Cerrar myFileId

MsgBox "Con" & tmpFi

leName & "Save Name"

End Sub

Después de pegar, regrese a la interfaz principal de Excel, asigne al documento de Excel un nombre que le resulte fácil de reconocer y guárdelo. como libro de trabajo "habilitado para macros", reservado para extraer

archivos swf.

Abra el ppt con el archivo swf incrustado, haga clic derecho en el archivo swf, seleccione copiar, cree un nuevo archivo de Excel, haga clic derecho en "Pegar" en el nuevo archivo de Excel y

Copie el archivo swf en el ppt, asígnele un nombre y guárdelo como un libro de Excel 97-2003 (la selección de la versión aquí es muy importante, no elija la incorrecta. Después de guardar, cierre Excel). .

Abra nuestro primer documento de Excel con el código pegado. En "Herramientas de desarrollo", haga clic en "Macros" para abrir el cuadro de diálogo de macro. Haga clic en "Ejecutar" y seleccione Pegar en la ventana que se abre. El archivo de Excel que contiene el archivo SWF estará listo y el SWF que contiene se extraerá inmediatamente.