Birden çok PowerPoint Sunusu nasıl bir araya getirilir

Birçok kişi birden fazla PowerPoint sunumu(PowerPoint presentations) üzerinde çalıştığında ve sonunda bunları birleştirmesi gerektiğinde, bu zorlu hale gelir. Birincil sebep biçimlendirmedir. Takımlar birbiriyle uyumlu değilse, onları aynı formata getirmek sancılı bir iş haline gelecektir.

Microsoft PowerPoint , Word ve Excel gibi, birden çok (Excel)PowerPoint sunumunu birleştirmenize ve biçimlendirmeyi değiştirmeden tutmanıza olanak tanıyan bir şirket içi çözüm sunar . Bunu yapmanın doğru yolu, herkesten aynı temayı kullanmasını istemektir. PowerPoint Temasını(PowerPoint Theme) tek bir dosyada ayarladığınızdan ve ardından herkesle paylaştığınızdan emin olun .(Make)

Birden Çok PowerPoint(Multiple PowerPoint) Sunumu Nasıl Birleştirilir

Birden çok PowerPoint dosyasını birleştirmenin üç yolu var. İlki, daha az numaranız olduğunda iyidir ve biçimlendirmeyi korumak birincil hedeftir. İkincisi, bir klasörde bulunan herhangi bir sayıda dosyayı birleştirebilir.

  1. Slaytlar Yöntemini Yeniden Kullan
  2. VBA Kodu Yöntemi
  3. Slaytları Kopyala Yapıştır.

Her yöntemin avantajı ve dezavantajı vardır. Akıllıca seçin .(Choose)

1] Slayt Yöntemini Yeniden Kullan

Birden çok PowerPoint Sunumu nasıl birleştirilir

Microsoft PowerPoint , yerleşik bir araç sunar: Slaytları Yeniden Kullanın. (Reuse Slides.)Diğer dosyayı açmanıza gerek kalmadan tek veya birden çok slaytı diğerinden sununuza aktarmanıza olanak tanır. Bu seçeneği kullandığınızda, özellikle kaynak dosyayla aynı temaya sahip olmak istiyorsanız, biçimlendirme seçeneğini seçtiğinizden emin olun.

  1. Slaytları birleştirmek istediğiniz yerde yeni bir Powerpoint dosyası veya mevcut bir dosya açın.(Powerpoint)
  2. Slaytları kaynak dosyadan eklemek istediğiniz slaydı seçin.
  3. Home > New Slide > Reuse Slide. seçeneğine gidin .
  4. (Browse)Birleştirmek istediğiniz dosyayı seçmek için göz atın . Ardından ok düğmesine tıklayın.
  5. O slaytta bulunan tüm tarafları ortaya çıkaracaktır.
  6. Eklemek istediğiniz slayda tıklayın(Click) , anında slayda eklenecektir.
  7. Biçimi tam olarak kaynak slayttaki gibi tutmak istiyorsanız, “ Kaynak biçimlendirmeyi koru(Keep source formatting) ” yazan kutuyu işaretleyin .

Buraya eklediğiniz her slayt bir kopyadır. Kaynak dosya olduğu gibi kalır ve üzerinde herhangi bir değişiklik yapılmaz. Birleştirilmiş belgede yaptığınız herhangi bir değişiklik orijinal dosyada mevcut olmayacaktır.

Bu yöntemi kullanarak içe aktarmanın en iyi yanlarından biri, tüm animasyonları veya geçişleri tutacak olmasıdır. (it will keep all animations or transitions.)Daha önce durum böyle değildi ve çalışması için Object yöntemini(use the Object method) ve ardından birden çok yapılandırmayı kullanmak gerekiyordu. Nesne Yöntemi(Object Method) , yalnızca birden çok dosyayı tek bir dosyada paketlemek istiyorsanız kullanışlıdır.

2] VBA Kodu Yöntemi

Çok sayıda PowerPoint Sunumunu(PowerPoint Presentations) birleştirmek için yerel bir yöntem olmadığından , tıpkı Excel dosyalarını birleştirmek için yaptığımız gibi bir VBA kodu kullanmamız gerekecek . Düz ileri ve Excel için kullandığımız (Excel)VBA koduna kıyasla daha iyi çalışıyor . Kod benim için iyi çalıştı ve 60 slayt değerinde 3 PowerPoint dosyasını birleştirebildim.(PowerPoint)

VBA Kodunu Kullanarak Birden Çok Sunumu Birleştirme

Tüm sunumları birleştirmek istediğiniz yeni veya mevcut PowerPoint dosyasında (PowerPoint)ALT + F11

(Click)Insert > Moduletıklayın ve kodu bu modülün içine yapıştırın. Kaydetmeye zahmet etmeyin.

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

Kalın olarak işaretlediğim değişiklikleri yapın.

F5 tuşuna basın(Press F5) , kodu yürütecektir

Bu klasörde bulunan tüm dosyalardan tüm slaytları içe aktaracaktır. Ancak, biçimlendirmeyi kaybeder. Bu, kodun en büyük sorunudur, ancak en önemli avantajı olan herhangi bir sayıda dosyayı birleştirebilir.  İçe aktarma işlemi tamamlandıktan sonra VBA kodunu kaldırdığınızdan emin olun . (Make)Kod PPTFAQ.c0m'ye aittir.(by PPTFAQ.c0m.)

3] Slaytları Kopyala Yapıştır

Kaynak Biçimlendirmeyi Koru PowerPoint Sunusu

Bunu bazen birden fazla dosya olduğunda, genellikle üçten az olduğunda kullanırım ve bunlardan yalnızca birkaç slayt kopyalamam gerekir. Ctrl + C ve Ctrl + V kullanabilirsiniz , ancak biçimlendirmeyi kaybedersiniz. Slaydı kopyaladıktan sonra, hedef dosyanın slayt listesi bölümüne sağ tıklayın ve formatı koru'yu seçin.

Umarım tüm bu yöntemleri takip etmek kolay olmuştur ve birden çok PowerPoint dosyasını birleştirebilmişsinizdir.

(Make)Birleştirilecek dosya sayısı ile ihtiyacınıza göre slaydın Teması(Theme) arasında seçim yaptığınızdan emin olun .

Sonraki oku(Read next) : Word Belgeleri Nasıl Birleştirilir(How to Merge Word Documents) .



About the author

10 yılı aşkın deneyime sahip bir bilgisayar uzmanıyım. Boş zamanlarımda, bir ofis masasında yardım etmeyi ve çocuklara interneti nasıl kullanacaklarını öğretmeyi severim. Becerilerim pek çok şeyi içeriyor ama en önemlisi, insanların sorunları çözmelerine nasıl yardım edeceğimi biliyorum. Acil bir konuda size yardımcı olabilecek birine ihtiyacınız varsa veya sadece bazı temel ipuçları istiyorsanız, lütfen bana ulaşın!



Related posts