从我的权力点图数据点，并把它们放入一个Excel表
几年前，为了一个大师级的项目，我的朋友从一张excel表格里拿出一堆数据，并用它们作为一个简报。 他告诉我，他用excel制作了这个图表，然后把它复制到了幻灯片中。 现在，当我将鼠标hover在图上时，我看到了与鼠标hover在哪里相关的点。 我的朋友失去了原来的excel表，并要求我帮助从powerpoint图中拉出数据，并将其放入excel表。
我怎么去做这个？ 如果将这些点取入json文件，我可以完成剩下的工作。 我对powerpoint图表一无所知。
右键单击图表，select编辑数据。 如果是embedded式图表，则图表及其工作簿将在Excel中打开。 从那里你可以文件| 另存为并保存新的Excel文件。
几年前，我使用了一个名为DataThief的程序 – 根据您要求parsing的数量，对graphics进行扫描并生成x和y。 令人惊讶的是，它仍然围绕DataThief III，你可以在这里find它： http ://datathief.org
我不确定这与Python有什么关系。 此外，我敢打赌，任何数据已经来自Excel，并将其转换为PowerPoint幻灯片。 我怀疑它是按照你描述的方式工作的。 看看下面的macros，看看它是否有助于你的项目。
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