Excel VBA でグラフソース範囲、グラフ名を変数で指定

Question

前提

授業でVBAを習っています。以下のソースコードを実行しても何も起こりませんでした。まだ初心者なのでお手柔らかにご教授いただけると幸いです。

実現したいこと

グラフの作成

1.最初のグラフの位置は，Left30ポイント，Top140ポイントで作成し、10ポイント間隔で１つ前のグラフのグラフソース範囲の１行下のグラフソース範囲指定し、グラフを作成する。
2. 上記を４回繰り返した後、10ポイント開けて最初に作成したグラフの右隣に、同様にグラフソース範囲をしていし、グラフを作成。
3.再び1を繰り返す。

グラフ名を変数で再現

"Sheet1" の4行B列から縦に記載されているグラフ名と、グラフ番号（1から7まで）を含んだグラフ名を作成。

該当のソースコード

Sub graph()

Dim a As Integer, b As Integer 'グラフ位置
Dim c As Integer  'グラフソース範囲

  For c = 4 To 10
    For b = 140 To 980 Step 210
   If b >= 980 Then
   a = a + 310
   With Sheets("Sheet1").ChartObjects.Add(a, b, 300, 200).Chart
  .ChartType = xlRows
  .SetSourceData Source:=Range(Cells(c, 3), Cells(c, 5))
  .HasTitle = True
  .ChartTitle.Text = "グラフ" & c - 3& & Cells(c, 2) & "人口推移"
   End With
   End If
    Next
  Next

End Sub

試したこと

-With を使わないプログラムの作成
-グラフ名の番号を別の変数で指定

Comments

[bebebe_]

何も起こらないとはグラフも作成されてないということですか？

[WKmike]

はい。実行ボタンを押してもエラーメッセージは出てこないのですが、グラフが作成されません。

[bebebe_]

こちらの環境では少し下のほうになりますが作成されています。
ChartObjects.Add(a, b, 300, 200)をChartObjects.Ad(0, 0, 300, 200)
にした場合左上に作成されますか？

[WKmike]

確かに、下のほうに作成されていました。a,b を 0,0 とした場合もグラフが作成されました。

Answer 1

以下のソースコードで成功しました。

Sub graph()

Dim a As Integer, b As Integer, d As Integer 'グラフ位置
Dim c As Integer 'グラフソース範囲

a = 30
c = 4
d = 0

For b = 140 To 1400 Step 210

If b - d > 770 Then
a = a + 310
d = d + 840
Else
a = a
End If
With Sheets("Sheet1").ChartObjects.Add(a, b - d, 300, 200).Chart
.ChartType = xlLine
.SetSourceData Source:=Range(Cells(c, 2), Cells(c, 5))
.SeriesCollection(1).XValues = Range("C3:E3")
.HasTitle = True
.ChartTitle.Text = "グラフ" & c - 3& & Cells(c, 2) & "人口推移"
End With
c = c + 1

Next

End Sub

前のソースコードでできなかった理由

-End If の位置が下すぎる。
-変数 b が980以上になるとグラフ作成が止まってしまう。（4つしかグラフができない）

もっといい方法があると思いますが、とりあえず一件落着ということにいたします。
ちなみにグラフ名の方は合ってました。