Cómo combinar múltiples presentaciones de PowerPoint

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 al igual que Word y Excel, que le permitirá fusionar varias presentaciones de PowerPoint y mantener intacto el formato. La forma correcta de hacer esto es pedir 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 fusionar varias presentaciones de PowerPoint

Tenemos tres formas de fusionar varios archivos de PowerPoint. Mientras que 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.

  1. Método de reutilización de portaobjetos
  2. Método de código VBA
  3. Copiar y pegar diapositivas.

Cada método tiene sus ventajas y desventajas. Elegir sabiamente.

1]Método de reutilización de portaobjetos

Cómo fusionar varias presentaciones de PowerPoint

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.

  1. Abra un nuevo archivo de Powerpoint o uno existente en el que desee fusionar las diapositivas.
  2. Seleccione la diapositiva después de la cual desea insertar las diapositivas del archivo de origen.
  3. Ir Inicio> Nueva diapositiva> Reutilizar diapositiva.
  4. Busque y seleccione el archivo que desea fusionar. Luego haga clic en el botón de flecha.
  5. Revelará todos los lados disponibles en esa diapositiva.
  6. Haga clic en la diapositiva que desea insertar y se agregará instantáneamente a la diapositiva.
  7. Si desea mantener el formato exactamente como la diapositiva de origen, marque la casilla que dice «Coserva el formato original. «

Cualquier diapositiva que agregue aquí es una copia. El archivo fuente 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 utilizar un código VBA, como 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.

Fusionar presentación múltiple usando código VBA

En el archivo de PowerPoint nuevo o existente donde desea fusionar todas las presentaciones, presione ALT + F11

Haga clic en Insertar> Módulo y pegue el código dentro de ese módulo. No se moleste en guardarlo.

Sub InsertAllSlides()
'  Insert all slides from all presentations in the same folder as this one
'  INTO this one; do not attempt to insert THIS file into itself, though.

    Dim vArray() As String
    Dim x As Long

    ' Change "*.PPT" to "*.PPTX" or whatever if necessary:
    EnumerateFiles ActivePresentation.Path & "C:PathtoSlidesYouWanttoImport", "*.PPT", vArray

    With ActivePresentation
        For x = 1 To UBound(vArray)
            If Len(vArray(x)) > 0 Then
                .Slides.InsertFromFile vArray(x), .Slides.Count
            End If
        Next
    End With

End Sub

Sub EnumerateFiles(ByVal sDirectory As String, _
    ByVal sFileSpec As String, _
    ByRef vArray As Variant)
    ' collect all files matching the file spec into vArray, an array of strings

    Dim sTemp As String
    ReDim vArray(1 To 1)

    sTemp = Dir$(sDirectory & sFileSpec)
    Do While Len(sTemp) > 0
        ' NOT the "mother ship" ... current presentation
        If 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 codigo es por PPTFAQ.c0m.

3]Copiar y pegar diapositivas

Mantener formato fuente presentación de PowerPoint

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 fusionar 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.

Reutilizar diapositivas Fusionar presentaciones de PowerPoint

Artículos relacionados

Deja un comentario