☰

¿Cómo copiar diseños de la vista maestra a diapositivas en PowerPoint?

tag-icon • tag-icon microsoft-powerpoint master
¿Cómo copiar diseños de la vista maestra a diapositivas en PowerPoint?

Un usuario con el que trabajo accidentalmente hizo toda su presentación en la vista maestra de diapositivas. Es decir, en lugar de añadir diapositivas, han creado diseños.

Existe una solución parcial simple, que consiste simplemente en agregar nuevas diapositivas usando cada uno de los diseños. Esto da como resultado una presentación que se puede mostrar bien, pero tiene ciertas limitaciones. Específicamente, colaboramos mucho aquí y, al compartir este archivo con otros usuarios, nadie más podrá editar el texto de las diapositivas sin acceder a la vista maestra.

Todo podría reconstruirse desde cero, pero es muy grande, por lo que llevaría demasiado tiempo.

Respuesta1

Un enfoque (posiblemente defectuoso):

Ir a cada diseño en la vista maestra
Presione Ctrl+A para seleccionar todo
Presione Ctrl+C para copiar
Volver a la vista Normal
Agregar una nueva diapositiva basada en el diseño EN BLANCO
Presione Ctrl+V para pegar el contenido que acaba de copiar del diseño
Una vez hecho con todos los diseños, regrese a la vista maestra, seleccione y elimine el contenido de cada diseño.

¿La falla? Esto le dará un montón de diapositivas que ya no están conectadas a diseños que controlarán la apariencia de la presentación. Para realizar cambios de gran alcance, deberá cambiar todas y cada una de las diapositivas. Pero es una solución relativamente rápida y al menos te dejará diapositivas editables.

Si la presentación se utilizará en más de unas pocas ocasiones y será editada por varias personas, una solución más completa podría ser más apropiada, aunque requiera mucho más tiempo.

Eso implicaría hacer lo anterior, luego revisar los diseños y eliminar cualquier contenido que no sea a) un marcador de posición ob) deseado en cada diapositiva según el diseño.

Luego, deberá aplicar el diseño apropiado a cada diapositiva que se basó originalmente en ella y, finalmente, si es necesario, copiar texto de cuadros de texto aleatorios en los marcadores de posición apropiados.

Si decide seguir ese camino, aquí hay una macro que eliminará todas las formas que no sean marcadores de posición de cada patrón/diseño de la presentación. No hará todo el trabajo por usted de ninguna manera, pero al menos automatizará una parte bastante tediosa:

Sub DeleteNonPlaceholderShapes()
' Deletes non-placeholder shapes from
' each slide master and layout in a presentation
' Run this on a COPY of your presentation, never the only original.

Dim oDes As Design
Dim oLay As CustomLayout
Dim oSh As Shape

With ActivePresentation
    For Each oDes In .Designs
        Call HandleOneContainerObject(oDes.SlideMaster)
        For Each oLay In oDes.SlideMaster.CustomLayouts
            Call HandleOneContainerObject(oLay)
        Next
    Next

End With

End Sub

Sub HandleOneContainerObject(oObject As Object)

Dim x As Long

For x = oObject.Shapes.Count To 1 Step -1
    If Not oObject.Shapes(x).Type = 14 Then
        oObject.Shapes(x).Delete
    End If
Next

End Sub

información relacionada