フォルダからファイルをコピーしてパワーポイントのスライドに埋め込む

Question

フォルダーにはコピーしてパワーポイントのスライドに埋め込むファイルがあります。 私はしかし、それはエラーを与えている、コードを書かれている「。実行時エラー不明なメンバーをシェーピング：あなたが忘れてしまった

Set obchart = pres.Shapes.AddOLEObject(100, 100, 200, 100, folderpath & fil.Name, True)

Sub copyfilestoppt() 
    Dim fso As Scripting.FileSystemObject 
    Dim fil As Scripting.file 
    Dim foldername As Scripting.Folder 
    Dim folderpath As String 
    Dim pres As PowerPoint.Slide 
    Dim obchart As Object 

    folderpath = "C:\Users\av\Desktop\Macro\Excel maacro" 
    Set fso = New Scripting.FileSystemObject 
    Set foldername = fso.GetFolder(folderpath) 
    Set pres = ActivePresentation.Slides(1) 

    'loop 
    For Each fil In foldername.Files 
     With ActivePresentation 
      Set pres = ActivePresentation.Slides(1) 
      Set obchart = pres.Shapes.AddOLEObject(100, 100, 200, 100, folderpath & fil.name, True) 
     End With 
    Next fil 
    Set obchart = Nothing 
End Sub 

Answer 1

：この行の無効な要求 『との間に\を』パスとファイル名を入力して引数を間違って入力してみてください。

Set obchart = pres.Shapes.AddOLEObject(100, 100, 200, 100, , folderpath & "\" & fil.Name, True) 
'               ^^^   ^^^^^^