Question

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

我该怎么做呢？如果离开以获得点到json文件我可以做其余的。我对powerpoint图表一无所知。

Answer 1

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

Answer 2

几年前，我使用了一个名为DataThief的程序 - 对图表进行扫描，根据您要求解决的数量生成x和y。令人惊讶的是它仍然围绕DataThief III，您可以在这里找到它： http://datathief.org

Answer 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工作表中

3 个答案: