在VBA中将图表复制粘贴到幻灯片中

Dim pptApp As PowerPoint.Application
Dim pptPres As PowerPoint.Presentation
Dim pptSlide As PowerPoint.Slide

Set pptApp = New PowerPoint.Application
pptApp.Visible = True ' 可见性设置为True，方便调试和查看结果

Set pptPres = pptApp.Presentations.Add
Set pptSlide = pptPres.Slides.Add(1, ppLayoutBlank) ' 添加一个空白布局的幻灯片

ActiveSheet.ChartObjects("Chart1").CopyPicture Appearance:=xlScreen, Format:=xlPicture

pptSlide.Shapes.PasteSpecial(DataType:=ppPasteEnhancedMetafile).Select

With pptSlide.Shapes(pptSlide.Shapes.Count)
    .Left = 100 ' 设置左边距
    .Top = 100 ' 设置上边距
    .Width = 400 ' 设置宽度
    .Height = 300 ' 设置高度
End With

Set pptSlide = Nothing
pptPres.Close
pptApp.Quit

Set pptPres = Nothing
Set pptApp = Nothing