Phenquestions
Cuando mucha gente trabaja en múltiples Presentaciones de PowerPoint y luego es necesario fusionarlos al final, se vuelve un desafío. La razón principal es el formateo. Si los equipos no están sincronizados entre sí, será un trabajo doloroso llevarlos al mismo formato.
Microsoft PowerPoint ofrece una solución interna como Word y Excel, que le permitirá fusionar varias presentaciones de PowerPoint y mantener intacto el formato. La forma correcta de hacer esto es pedirles a todos que usen el mismo tema. Asegúrese de configurar el tema de PowerPoint en un archivo y luego compartirlo con todos.
Cómo combinar varias presentaciones de PowerPoint
Tenemos tres formas de fusionar varios archivos de PowerPoint. Si bien el primero es bueno cuando tiene menos números, y preservar el formato es el objetivo principal. El segundo puede combinar cualquier número de archivos disponibles en una carpeta.
- Método de reutilización de portaobjetos
- Método de código VBA
- Copiar y pegar diapositivas.
Cada método tiene sus ventajas e inconvenientes. Elegir sabiamente.
1] Método de reutilización de portaobjetos
Microsoft PowerPoint ofrece una herramienta incorporada- Reutilizar diapositivas. Le permite importar una o varias diapositivas a su presentación desde otra, sin tener que abrir el otro archivo. Cuando use esta opción, asegúrese de elegir la opción para formatear, especialmente si desea tener el mismo tema que el archivo de origen.
- Abra un nuevo archivo de Powerpoint o uno existente donde desee fusionar las diapositivas.
- Seleccione la diapositiva después de la cual desea insertar las diapositivas del archivo de origen.
- Ir Inicio> Nueva diapositiva> Reutilizar diapositiva.
- Navegue para seleccionar el archivo que desea fusionar. Luego haga clic en el botón de flecha.
- Revelará todos los lados disponibles en esa diapositiva.
- Haga clic en la diapositiva que desea insertar y se agregará instantáneamente a la diapositiva.
- Si desea mantener el formato exactamente como la diapositiva de origen, marque la casilla que dice "Mantener el formato de origen."
Cualquier diapositiva que agregue aquí es una copia. El archivo de origen permanece intacto y no se le harán cambios. Cualquier cambio que realice en el documento combinado no estará disponible en el archivo original.
Una de las mejores partes de la importación con este método es que mantendrá todas las animaciones o transiciones. No era el caso antes, y había que usar el método Object, seguido de múltiples configuraciones para que funcionara. El método de objeto solo es útil si desea empaquetar varios archivos en uno.
2] Método de código VBA
Dado que no existe un método nativo para fusionar numerosas presentaciones de PowerPoint, tendremos que usar un código VBA, tal como lo hicimos para fusionar archivos de Excel. Es sencillo y funciona mejor en comparación con el código VBA que usamos para Excel. El código funcionó bien para mí, y pude fusionar 3 archivos de PowerPoint por valor de 60 diapositivas.
En el archivo de PowerPoint nuevo o existente donde desea combinar todas las presentaciones, presione ALT + F11
Haga clic en Insertar> Módulo y pegue el código dentro de ese módulo. No te molestes en guardarlo.
Sub InsertAllSlides () 'Inserta todas las diapositivas de todas las presentaciones en la misma carpeta que esta' EN esta; no intente insertar ESTE archivo en sí mismo, aunque. Dim vArray () As String Dim x As Long ' Cambio "*.PPT "a" *.PPTX "o lo que sea si es necesario: EnumerateFiles ActivePresentation.Camino & "C: \ PathtoSlidesYouWanttoImport", "*.PPT ", vArray con ActivePresentation para x = 1 A UBound (vArray) If Len (vArray (x))> 0 Entonces .Diapositivas.InsertFromFile vArray (x), .Diapositivas.Count End If Next End With End Sub Sub EnumerateFiles (ByVal sDirectory As String, _ ByVal sFileSpec As String, _ ByRef vArray As Variant) 'recopila todos los archivos que coinciden con la especificación del archivo en vArray, una matriz de cadenas Dim sTemp As String ReDim vArray ( 1 a 1) sTemp = Dir $ (sDirectory & sFileSpec) Do While Len (sTemp)> 0 'NO la "nave nodriza"… presentación actual Si sTemp <> ActivePresentation.Name Then ReDim Preserve vArray (1 To UBound (vArray) + 1) vArray (UBound (vArray)) = sDirectory & sTemp End If sTemp = Dir $ Loop End Sub
Realice los cambios que he marcado como negrita.
Presione F5 y ejecutará el código
Importará todas las diapositivas de todos los archivos disponibles en esa carpeta. Sin embargo, perderá el formato. Ese es el mayor problema con el código, pero puede fusionar cualquier cantidad de archivos, que es su ventaja más significativa. Asegúrese de eliminar el código VBA una vez que se complete la importación. El código es PPTFAQ.c0m.
3] Copiar y pegar diapositivas
Utilizo esto a veces cuando hay varios archivos, generalmente menos de tres, y necesito copiar solo algunas diapositivas de ellos. Si bien puede usar Ctrl + C y Ctrl + V, perderá el formato. Entonces, después de copiar la diapositiva, haga clic con el botón derecho en la sección de la lista de diapositivas del archivo de destino y seleccione mantener el formato.
Espero que todos estos métodos hayan sido fáciles de seguir y que haya podido combinar varios archivos de PowerPoint.
Asegúrese de elegir entre la cantidad de archivos para fusionar y el tema de la diapositiva según sus necesidades.
Leer siguiente: Cómo fusionar documentos de Word.
