PowerPoint'te ana görünümden mizanpajları slaytlara nasıl kopyalarım?

Çalıştığım bir kullanıcı yanlışlıkla tüm sunumlarını slayt ana görünümünde yaptı. Yani, slayt eklemek yerine, düzenler oluşturdular.

Her bir yerleşimi kullanarak yalnızca yeni slaytlar ekleyen basit bir kısmi çözüm vardır. Bu, tamamıyla gösterilebilecek bir sunumla sonuçlanır, ancak bazı sınırlamaları vardır. Özellikle, burada çok işbirliği yapıyoruz ve bu dosyayı başka kullanıcılarla paylaşırken, başkaları slayt görünümündeki ana görünüme girmeden metni düzenleyemez.

Her şey sıfırdan yeniden inşa edilebilir, ancak çok büyük, bu yüzden bu çok zaman alacaktır.

Bir (muhtemelen hatalı) yaklaşım:

Ana görünümdeki her mizanpaja gidin
Tümünü Seçmek için Ctrl + A tuşlarına basın.
Kopyalamak için Ctrl + C tuşlarına basın
Normal görünüme dön
BLANK düzenine göre yeni bir slayt ekleyin
Mizanpajdan yeni kopyaladığınız içeriği yapıştırmak için Ctrl + V tuşlarına basın.
Tüm düzenlerle işiniz bittiğinde, ana görünüme dönün, içeriği her düzenden seçin ve silin.

Kusur mu? Bu, sunumun görünümünü kontrol edecek düzenlere artık bağlı olmayan bir sürü slayt verir. Geniş kapsamlı değişiklikler yapmak için her slaytı değiştirmeniz gerekecektir. Ancak bu nispeten hızlı bir düzeltme ve en azından sizi düzenlenebilir slaytlarla bırakacak.

Sunum birkaç defadan fazla kullanılacak ve çeşitli insanlar tarafından düzenlenecekse, çok daha fazla zaman alan olsa bile daha eksiksiz bir düzeltme daha uygun olabilir.

Bu, yukarıdakileri yapmayı, ardından mizanpajları gözden geçirmeyi ve mizanpaja dayalı olarak her slayta istenen bir a) yer tutucu veya b) olmayan içeriği silmeyi içerir.

Daha sonra, her bir slayta orijinal olarak dayalı bir slayt uygulamanız ve son olarak gerekirse rasgele metin kutularından uygun yer tutuculara metin kopyalamanız gerekir.

Bu rotaya gitmeye karar verirseniz, sunumdaki her ana / düzendeki tüm yer tutucu olmayan şekilleri silen bir makro aşağıdadır. Sizin için tüm işi hiçbir şekilde yapmaz ama en azından sıkıcı bir kısmını otomatik hale getirir:

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