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

我正在试图将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 

在Excel中，我已经走到了这一步：

 Sub CreateNewReport() Dim pptApp As PowerPoint.Application Dim pptPres As PowerPoint.Presentation Dim pptSlide As PowerPoint.Slide Dim pptShape As PowerPoint.Shape Dim w!, h!, t!, l! Dim Chart As Chart Set pptApp = CreateObject("PowerPoint.Application") pptApp.Visible = msoTrue Set pptPres = pptApp.Presentations.Open("C:\Users\...\Report.pptm") Set Chart = Worksheets("Analysts").ChartObjects("Chart 2") Set PPSlide = pptPres.Slides(4) 'PPSlide.Shapes("Analyst.Forecasts").Copy Set pptShape = pptPres.Slides(4).Shapes(4) With pptShape w = .Width h = .Height l = .Left t = .Top End With pptShape.Parent.Paste With Selection .Width = w .Height = h .Left = l .Top = t End With ppt.Shape.Delete End Sub 

有谁知道如何从这里拿走它？ 我不能完全弄清楚如何定义我想要复制的图表，以及如何在Powerpoint中粘贴和replaceShep。 理想情况下，我想用图表的元文件replace它，但是图片也可以。

非常感谢您的帮助！

Answer 1

我使用这个代码来从Excel中制作ppt并粘贴到placeHolder中;

 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