エクセルのグラフの操作

質問

エクセルのグラフの操作

初歩的でスミマセンが、よろしくお願いします。
エクセルのグラフのデータの内容を１セルずつ下に下げて、それを４００回繰り返したいんです。

'wave-h'!R402C3と'wave-h'!R402C4を
'wave-h'!R403C3と'wave-h'!R403C4にして
'wave-h'!R867C3と'wave-h'!R867C4にまでしたいのですが。
do loopを考えてるんですが、引数？が上手くいかなくて・・・。

ついでにその後グラフをコピーしてペイントに貼り付けてJPGで保存する予定です。
これを400回以上繰り返すんですが、ペイントのコピーのところまではエクセルのVBAで可能でしょうか。よろしくお願いします。

ActiveSheet.ChartObjects("グラフ 4").Activate
ActiveChart.SeriesCollection(2).Select
ActiveChart.SeriesCollection(2).XValues = "='wave-h'!R402C3"
ActiveChart.SeriesCollection(2).Values = "='wave-h'!R402C4"
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(2).Select
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy

回答No.1

mitarashi · ベストアンサー

点が一個だけの散布図で試しにやってみました。当方xl2000です。
当方の試験データで試していますので、質問者様の条件に合わせてアレンジしてください。
ExportメソッドはFiltermode引数を指定しないでも、拡張子で判別して、その形式で保存してくれる様です。コメントアウトしてありますが、gifで保存した方が見た目は良いと思います。
Sub test()
Dim i As Long
Dim strRow As String
Const offsetValue As Long = 2

ActiveSheet.ChartObjects(1).Activate
For i = 1 To 10
strRow = CStr(i + offsetValue)
With ActiveChart
.SeriesCollection(1).XValues = "='Sheet1'!R" & strRow & "C2"
.SeriesCollection(1).Values = "='Sheet1'!R" & strRow & "C3"
'.Export "C:\graph" & strRow & ".gif"
.Export "C:\graph" & strRow & ".jpg"
End With
Next i
End Sub

お礼

どうもありがとうございます！こちら用にアレンジして早速試してみましたが、理想的な感じで出来ました！しかもJPGでも保存できて最高です！この後AVIに変換するので、とりあえずJPGでやってみる予定です。本当に感謝感激です。どうもありがとうございます！！！