从我的 powerpoint 图表中获取数据点并将它们放入 Excel 表中答案

【问题标题】：Take data points from my power point graph and put them into an excel sheet从我的 powerpoint 图表中获取数据点并将它们放入 Excel 表中
【发布时间】：2017-02-09 03:46:32
【问题描述】：

几年前，我的朋友在一个硕士项目中从一个 Excel 表格中获取了一堆数据，并将它们用于一个 PowerPoint 图表。他告诉我他在excel中制作了图表，然后将其复制到PowerPoint中。现在，当我将鼠标悬停在图表上时，我会看到与鼠标悬停位置相关的点。我的朋友丢失了原始的 excel 表，并要求我帮助从 powerpoint 图表中提取数据并将其放入 excel 表中。

我该怎么做呢？如果将这些点放入 json 文件中，我可以做剩下的事情。我对PowerPoint图表一无所知。

【问题讨论】：

标签： python json excel powerpoint

【解决方案1】：

右击图表，选择编辑数据。如果它是嵌入式图表，则图表及其工作簿将在 Excel 中打开。从那里你可以文件 |另存为并保存新的 Excel 文件。

【讨论】：

【解决方案2】：

几年前，我使用了一个名为 DataThief 的程序 - 扫描图形并根据您要求的分辨率生成 x 和 y。令人惊讶的是，它仍然在 DataThief III 周围，您可以在这里找到它： http://datathief.org

【讨论】：

【解决方案3】：

我不确定这与 Python 有什么关系。此外，我敢打赌，数据已经来自 Excel，并且已转换为 PowerPoint 幻灯片。我怀疑它是否按照您描述的方式工作。查看下面的宏，看看它是否对您的项目有帮助。

Sub Open_PowerPoint_Presentation()

Dim objPPT As Object, _
    PPTPrez As PowerPoint.Presentation, _
    pSlide As PowerPoint.Slide

Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True

Set PPTPrez = objPPT.Presentations.Open("C:\PPT_Deck.pptx")
Set pSlide = PPTPrez.Slides(5)

If pSlide.Shapes.Count <> 0 Then
    'Table
    ActiveWorkbook.Sheets("Sheet1").Range("Named Range").Copy
    pSlide.Shapes.PasteSpecial DataType:=ppPasteEnhancedMetafile
    'OR
    ActiveWorkbook.Sheets("Sheet1").Range("Named Range").CopyPicture
    pSlide.Shapes.Paste

    'Charts
    ActiveWorkbook.Sheets("Graph1").ActiveChart.ChartArea.Copy
    pSlide.Shapes.PasteSpecial DataType:=ppPasteEnhancedMetafile
    'OR
    ActiveWorkbook.Sheets("Graph1").ActiveChart.ChartArea.CopyPicture
    pSlide.Shapes.Paste
Else
    MsgBox "There is no shape in this Slide (" & pSlide.SlideIndex & ")." & vbCrLf & "Please use a slide with at least one shape, not a blank slide", vbCritical + vbOKOnly
End If

End Sub

【讨论】：

这是一个有用的宏，用于将 Excel 中的图片（不是数据）粘贴到 PowerPoint 中； OP 正在寻求从 PowerPoint 中的图表中提取数据，因为原始 Excel 文件不可用。我认为这对这种情况没有帮助。