VBA技术需求：将Excel图表在PowerPoint本地重建同类型图表

以下是满足需求的VBA代码：选中Excel中的图表后运行宏，会启动新PowerPoint实例，插入和原图表类型一致的本地独立图表（无Excel链接、不嵌入完整Excel文件），并将原图表的数据同步到PPT图表的后台数据源：

Sub ExportToPPTLocalChart()
    Dim pptApp As PowerPoint.Application
    Dim pptPres As PowerPoint.Presentation
    Dim pptSlide As PowerPoint.Slide
    Dim pptChart As PowerPoint.Chart
    Dim excelChart As ChartObject
    Dim sourceData As Range
    
    ' 检查是否选中了Excel图表
    If TypeName(Selection) <> "ChartObject" Then
        MsgBox "请先选中一个Excel图表！", vbExclamation
        Exit Sub
    End If
    Set excelChart = Selection
    
    ' 获取图表的数据源范围
    Set sourceData = excelChart.Chart.DataSource.DataBodyRange
    
    ' 启动PowerPoint并创建新演示文稿、空白幻灯片
    Set pptApp = New PowerPoint.Application
    pptApp.Visible = True
    Set pptPres = pptApp.Presentations.Add
    Set pptSlide = pptPres.Slides.Add(1, ppLayoutBlank)
    
    ' 在PPT中插入和原图表类型一致的本地图表
    Set pptChart = pptSlide.Shapes.AddChart2(Style:=201, _
        XlChartType:=excelChart.Chart.ChartType, Left:=100, Top:=100, _
        Width:=excelChart.Width, Height:=excelChart.Height).Chart
    
    ' 清除PPT图表默认数据，替换为Excel图表的数据源
    pptChart.SetSourceData Source:=sourceData
    
    ' 可选：复制原图表的格式到PPT图表（优化视觉一致性）
    excelChart.Chart.Copy
    pptChart.PasteFormat
End Sub

关键步骤说明： #

• 选中校验：先判断用户是否选中了图表，避免无意义报错
• 数据源提取：直接获取原Excel图表绑定的数据源区域
• 创建本地图表：用AddChart2创建PowerPoint原生图表，指定和原图表一致的类型、尺寸
• 替换数据源：通过SetSourceData将Excel数据同步到PPT图表的后台，生成完全独立的本地图表
• 格式同步（可选）：复制原图表的格式，让PPT图表和原Excel图表视觉一致

原有代码的问题： #

• PPTSlide.Shapes.Paste：粘贴的是链接到Excel的图表，依赖原Excel文件存在才能正常显示
• PPTApp.CommandBars.ExecuteMso ("PasteExcelChartSourceFormatting")：粘贴的是嵌入了完整Excel文件的图表对象，会额外携带Excel文件数据，导致PPT体积增大

内容的提问来源于stack exchange，提问作者Nihal George