Извлечение данных из удаленной диаграммы Excel

мне пришлось сделать то же самое с презентацией PowerPoint 2010. Я думаю, что в качестве долгосрочного решения сценарий VBA-это хороший способ. Однако я не мог заставить его работать в моем случае по какой-то причине, и мне нужно было получить данные только один раз. (Как структурное решение, вы, вероятно, не должны потерять свои исходные данные в первую очередь.) Вот что можно сделать:

1. переименовать файл PPT, чтобы иметь .zip расширение
2. распаковать полученный архив в папка.
3. папка должна содержать ppt/charts/ папку.
4. открыть chart1.xml С Excel как XML-таблица. (Просто откройте файл, и Excel спросит вас, как его открыть.
5. документ будет иметь много колонн, многие из них с одинаковым значением в каждой строке. Один столбец будет x-значениями диаграммы. Вы можете найти его, сравнивая значения с тем, что вы видите в презентации. Y-значения в другом столбце и в моем случае тоже ниже x-значения (поэтому первые строки в столбце y-данных пусты).
6. Я нашел, что проще всего скопировать-вставить x и y-значения рядом друг с другом в новом документе.
7. чтобы проверить данные, выберите вставленные данные и вставьте > диаграммы > Scatter > плавными линиями. Первый столбец должен быть x-значениями, второй y-значениями.
8. Я нашел его проще создать новую презентацию только с одной кривой из исходного файла. Однако, если диаграмм много, то вы будете наверное, Смотрите также chart2.xml etc. в распакованной папке. Если диаграмма содержит более 1 строки, необходимо найти дополнительные данные в XML.

вы должны использовать VBA для извлечения данных. Вот одно из возможных решений VBA:http://peltiertech.com/WordPress/extract-chart-data/. Он включает в себя этот код:

Sub ExtractChartData()
   Dim iSrs As Long
   Dim cht As Chart
   Dim srs As Series
   Dim ws As Worksheet

   If ActiveChart Is Nothing Then Exit Sub

   Set cht = ActiveChart
   Set ws = Worksheets.Add
   For iSrs = 1 To cht.SeriesCollection.Count
     Set srs = cht.SeriesCollection(iSrs)
     On Error Resume Next
     ws.Cells(1, 2 * iSrs).Value = srs.Name
     ws.Cells(2, 2 * iSrs - 1).Resize(srs.Points.Count).Value = _
         WorksheetFunction.Transpose(srs.XValues)
     ws.Cells(2, 2 * iSrs).Resize(srs.Points.Count).Value = _
         WorksheetFunction.Transpose(srs.Values)
   Next
 End Sub

вот еще одно возможное решение, напрямую от Microsoft:http://support.microsoft.com/kb/300643 (также включает VBA)