[[20180607141125]]　『グラフの範囲を自動的に可変にする』（ぽこにゃん）　ページの最後に飛ぶ

『グラフの範囲を自動的に可変にする』（ぽこにゃん）

表題の内容について。

グラフの範囲を自動的に可変にするマクロがあります。

Sub test()
　　Dim i As Long, F As String, lngMax As Long
　　lngMax = Cells(Rows.Count, 1).End(xlUp).Row
　　With ActiveSheet.ChartObjects(1).Chart
　　　　For i = 1 To .SeriesCollection.Count
　　　　　　.SeriesCollection(i).Formula = _
　　　　　　　　"=SERIES(" & _
　　　　　　　　Cells(1, i + 1).Address(External:=True) & "," & _
　　　　　　　　Cells(2, 1).Resize(lngMax - 1, 1).Address(External:=True) & "," & _
　　　　　　　　Cells(2, i + 1).Resize(lngMax - 1, 1).Address(External:=True) & "," & _
　　　　　　　　i & ")"
　　　　Next i
　　End With
End Sub

これでは縦方向への増減しか対応してもらえません。
横方向への増減も可変するにはどうすればよいでしょうか？
（縦横両方向へ増減します）

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

行追加できたのなら、列だってできるのでは？　R1C1形式にすると、列も数字で書けますよ。
または、以下の1行では駄目でしょうか？特に列順を変えたりしていないようなので。

    ActiveSheet.ChartObjects(1).Chart.SetSourceData Source:=Range("A1").CurrentRegion

（???） 2018/06/07(木) 17:16

コメント返信：

[ 一覧(最新更新順) ]

[[20180607141125]] 『グラフの範囲を自動的に可変にする』（ぽこにゃん） ページの最後に飛ぶ

[[20180607141125]]　『グラフの範囲を自動的に可変にする』（ぽこにゃん）　ページの最後に飛ぶ