R：MS Excelスプレッドシートからチャートを抽出するには？

Question

私は見回しましたが、Excelスプレッドシートから自動的にチャートを抽出する方法を見つけることができませんでした。 （私の選択ツールはRですが、代替案を検討したいと思います）

誰でもやったことがありますか？

更新：Excel 2013を使用して作成したスプレッドシートがたくさんあり、すべてのグラフを画像（PNGなど）として抽出したいと思います。私はVBAを使用しても構いませんが、すべてのスプレッドシートを一度に実行すると、この演習の目的を破ってしまうので、コードを実行する必要があります。 ... VBAでこのような何かを試してみてください、あなたのチャートの全てが通常のワークシート（たとえばシート1、シート2）とないグラフシート（例えばグラフ1）中に埋め込まれていると仮定すると

Answer 1

：

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 

私はそれをテストし、できます。これにより、開いているワークブック、すべてのワークシート、およびすべてのチャートオブジェクトをエクスポートする必要があります。