PowerPointの複数結合で、背景、デザインもコピーをするVBA

POWERPOINTの複合結合で、、背景、デザインもコピーをするVBAを作成しております。
初心者になります。

１、パワーポイント＿A（マクロを記載しているパワーポイント）を格納している同ディレクトリ内のPパワーポイントファイルをコピーし、パワーポイント＿Aに張り付ける、
すべてのパワーポイントのスライドをコピーしてパワーポイント＿Aに追加していく、最終的に結合した形にする

※それぞれのパワーポイント（スライド）のデザイン、背景もコピーして貼り付けをしたい。

※結合するパワーポイントはスライドによって背景や設定が違っている。

発生している問題・エラーメッセージ

パワーポイントをコピーし、結合することはできている。
ただ、コピーしたスライド先(表を使用しているところ)は
大きさや文字の大きさ（設定）が違ってコピーされる。

該当のソースコード

Sub ALL_PPTX()

Dim openFilePath As String
Dim fn As String
Dim f As Object
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim myPtt, myActPtt As Presentation

'PowerPointのマクロ（結合先のマクロ）
Set myPtt = ActivePresentation

'検索フォルダ
openFilePath = ActivePresentation.Path

'ディレクトリ内の結合したいパワーポイントのファイル：フォルダ内のファイルを取得

For Each f In FSO.GetFolder(openFilePath).Files

'ファイル名の取得
fn = f.Name

'拡張子 pptx で判別
If FSO.GetExtensionName(openFilePath & "\" & fn) = "pptx" Then

    'コピー元ファイルを開く
    Presentations.Open (openFilePath & "\" & fn)
    
    With ActivePresentation
    
    Set myActPtt = ActivePresentation
    
    .Slides.Range.Copy
    
    .Close
    
    End With
    'コピー先へ貼り付け
    With myPtt.Slides.Paste
        
    
    End With
    
    'ActiveWindow.View.Paste
End If

Next f

End Sub


### 試したこと
他の質問箱も見て、以下を付け足して実行したのですが、エラーになりました。  
なかなかうまく修正できずにおりますので力を貸してください。    
      
            myPtt.Design = myActPtt.Design
            myPtt.ColorScheme = myActPtt.ColorScheme
            myPtt.DisplayMasterShapes = myActPtt.DisplayMasterShapes
            myPtt.FollowMasterBackground = myActPtt.FollowMasterBackground

### 補足情報（FW/ツールのバージョンなど）