複数のPowerPointプレゼンテーションを組み合わせる方法

多くの人が複数のPowerPointプレゼンテーションに取り組んでいる場合 そして最終的にそれらをマージする必要があり、それは困難になります。主な理由はフォーマットです。チームが互いに同期していない場合、チームを同じ形式にするのは骨の折れる作業になります。

Microsoft PowerPointは、WordやExcelと同じように社内ソリューションを提供します。これにより、複数のPowerPointプレゼンテーションをマージしながら、フォーマットをそのまま維持できます。これを行う正しい方法は、全員に同じテーマを使用するように依頼することです。 PowerPointテーマを1つのファイルに設定してから、全員と共有してください。

複数のPowerPointプレゼンテーションをマージする方法

複数のPowerPointファイルをマージする方法は3つあります。最初のものは数が少ない場合に適していますが、フォーマットを維持することが主な目標です。 2つ目は、フォルダ内で利用可能な任意の数のファイルを組み合わせることができます。

1. スライドの再利用方法
2. VBAコードメソッド
3. スライドをコピーして貼り付けます。

それぞれの方法には長所と短所があります。賢明に選択してください。

1]スライドの再利用方法

Microsoft PowerPointには、スライドの再利用という組み込みのツールが用意されています。 他のファイルを開かなくても、1つまたは複数のスライドを別のスライドからプレゼンテーションにインポートできます。このオプションを使用するときは、特にソースファイルと同じテーマを使用する場合は、必ずフォーマットのオプションを選択してください。

1. スライドをマージする新しいPowerpointファイルまたは既存のファイルを開きます。
2. ソースファイルからスライドを挿入するスライドを選択します。
3. ホーム>新しいスライド>スライドの再利用に移動します。
4. 参照して、マージするファイルを選択します。次に、矢印ボタンをクリックします。
5. そのスライドで利用可能なすべての側面が表示されます。
6. 挿入するスライドをクリックすると、すぐにスライドに追加されます。
7. フォーマットをソーススライドとまったく同じに保ちたい場合は、「ソースフォーマットを維持する」というチェックボックスをオンにします。 。」

ここに追加するスライドはすべてコピーです。ソースファイルはそのまま残り、変更は行われません。マージされたドキュメントに加えた変更は、元のファイルでは使用できなくなります。

この方法を使用してインポートすることの最良の部分の1つは、すべてのアニメーションまたはトランジションを保持することです。 以前はそうではなく、Objectメソッドを使用し、その後に複数の構成を使用して機能させる必要がありました。オブジェクトメソッドは、複数のファイルを1つにパックする場合にのみ役立ちます。

2]VBAコードメソッド

多数のPowerPointプレゼンテーションをマージするネイティブの方法がないため、Excelファイルをマージする場合と同じようにVBAコードを使用する必要があります。これは単純明快で、Excelで使用したVBAコードと比較してうまく機能します。コードはうまく機能し、60枚のスライドに相当する3つのPowerPointファイルをマージすることができました。

すべてのプレゼンテーションをマージする新規または既存のPowerPointファイルで、Alt + F11

[挿入]>[モジュール]をクリックして、そのモジュール内にコードを貼り付けます。わざわざ保存しないでください。

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

太字でマークした変更を加えます。

F5キーを押すと、コードが実行されます

そのフォルダで利用可能なすべてのファイルからすべてのスライドをインポートします。ただし、フォーマットは失われます。これはコードの最大の問題ですが、任意の数のファイルをマージできるため、これが最も重要な利点です。インポートが完了したら、必ずVBAコードを削除してください。コードはPPTFAQ.c0mによるものです。

3]コピー貼り付けスライド

複数のファイル（通常は3つ未満）があり、それらから数枚のスライドをコピーするだけでよい場合に、これを使用することがあります。 Ctrl+CおよびCtrl+Vを使用できますが、フォーマットは失われます。したがって、スライドをコピーした後、宛先ファイルのスライドリストセクションを右クリックして、[形式を保持する]を選択します。

これらすべての方法が簡単で、複数のPowerPointファイルをマージできたことを願っています。

必要に応じて、マージするファイルの数とスライドのテーマのどちらかを選択してください。

次を読む ：Word文書をマージする方法。