R：如何从MS Excel电子表格中提取图表？

我环顾四周，但无法find从Excel电子表格中自动提取图表的方法。 （我select的工具是R，但我会​​考虑替代品。）

有没有人做过？

更新：我有一堆使用Excel 2013创build的电子表格，我想提取所有图表作为图片（例如PNG）。 我不介意使用VBA，但是我需要能够在所有的电子表格上一次运行代码，因为一个接一个地通过它们会打败这个练习的目的。

Answer 1

假设所有的图表都embedded在普通的工作表（例如Sheet1，Sheet2）而不是图表（例如Chart1）中…在VBA中尝试这样的事情：

Sub exportAllCharts() Dim folder As String Dim filename As String Dim wb As Workbook Dim ws As Worksheet Dim cObj As ChartObject folder = "C:\" 'Make sure to have the trailing slash For Each wb In Application.Workbooks For Each ws In wb.Worksheets For Each cObj In ws.ChartObjects filename = wb.Name & " " & ws.Name & " " & cObj.Name & ".png" 'Or whatever your code is to name your file... cObj.Chart.Export folder & filename Next cObj Next ws Next wb End Sub 

我testing了它，它工作。 这应该迭代所有打开的工作簿，所有工作表，并导出所有图表对象。