将Excel图表复制到Powerpoint中的占位符

我正在尝试将Excel图表复制到Powerpoint中的特定占位符。我使用以下代码命名了占位符

Sub NameShape()
Dim Name$
On Error GoTo AbortNameShape
If ActiveWindow.Selection.ShapeRange.Count = 0 Then
    MsgBox "No Shapes Selected"
    Exit Sub
End If
Name$ = ActiveWindow.Selection.ShapeRange(1).Name
Name$ = InputBox$("Give this shape a name", "Shape Name", Name$)
If Name$ <> "" Then
    ActiveWindow.Selection.ShapeRange(1).Name = Name$
End If
Exit Sub
AbortNameShape:
    MsgBox Err.Description

End Sub

有人知道怎么从这里拿走吗？我不太清楚如何定义要复制的图表以及如何在Powerpoint中粘贴和替换shep。理想情况下，我想用图表的图元文件替换它，但图片也可以

---

非常感谢你的帮助

我使用此代码从Excel制作ppt并粘贴到占位符中

Nr = 2

'Verifique os graficos nos arquivos
    For Each Grf In E.ActiveSheet.ChartObjects
        Grf.Copy
        Sld.Shapes.Placeholders(Nr).Select msoCTrue
        P.ActivePresentation.Windows(1).View.PasteSpecial (ppPasteMetafilePicture)
       Nr = Nr + 1
    Next Grf

End If

---

我使用此代码从Excel制作ppt并粘贴到占位符中

Nr = 2

'Verifique os graficos nos arquivos
    For Each Grf In E.ActiveSheet.ChartObjects
        Grf.Copy
        Sld.Shapes.Placeholders(Nr).Select msoCTrue
        P.ActivePresentation.Windows(1).View.PasteSpecial (ppPasteMetafilePicture)
       Nr = Nr + 1
    Next Grf

End If