Возьмите данные из графика моей точки электропитания и поместите их в лист excel

Question

Несколько лет назад для проекта мастеров мой друг взял кучу данных с листа Excel и использовал их в графике PowerPoint. Он сказал мне, что сделал граф в Excel, а затем скопировал его в powerpoint. Теперь, когда я наводил курсор на график, я вижу точки, связанные с тем, где моя мышь зависает. Мой друг потерял оригинальный лист Excel и просит меня помочь вытащить данные из графика powerpoint и поместить его в лист excel.

Как бы я это сделал? Если вам нужно получить очки в json-файл, я могу сделать все остальное. Я ничего не знаю о графиках PowerPoint.

Answer 1

лет назад Я использовал программу под названием DataThief - выполняет сканирование графика и производит x и y в соответствии с тем, сколько вы просите разрешения. Удивительно, что до сих пор вокруг DataThief III, и вы можете найти его здесь: http://datathief.org

Answer 2

правой кнопкой мыши таблицу, выберите Изменить данные. Если это встроенная диаграмма, диаграмма и ее рабочая книга откроются в Excel. Оттуда вы можете Файл | Сохранить как и сохранить новый файл Excel.

Answer 3

Я не уверен, что это имеет отношение к Python. Кроме того, я сделаю ставку на то, что данные уже поступают из Excel и конвертируется в слайд PowerPoint. Я сомневаюсь, что он работает так, как вы это описали. Проверьте Macro ниже и посмотрите, помогает ли это вам в вашем проекте.

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