用Excel vba将对象放入PowerPoint表中

Dim pptApp As Object
Dim pptPres As Object

Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Visible = True ' 可选，设置PowerPoint应用程序可见

Set pptPres = pptApp.Presentations.Add

Dim ws As Worksheet
Dim pptSlide As Object

Set ws = ThisWorkbook.Worksheets("Sheet1") ' 修改为要复制的工作表名称

' 复制工作表
ws.Copy Before:=ThisWorkbook.Sheets(1) ' 复制到新的工作簿中

' 将复制的工作表粘贴到PowerPoint表中
Set pptSlide = pptPres.Slides.Add(pptPres.Slides.Count + 1, 12) ' 12表示ppLayoutBlank，可根据需要修改布局
pptSlide.Shapes.PasteSpecial(DataType:=2) ' 2表示ppPasteEnhancedMetafile，可根据需要修改粘贴类型

' 释放对象
Set pptSlide = Nothing
pptPres.Close
Set pptPres = Nothing
pptApp.Quit
Set pptApp = Nothing