エクセルのマクロでグラフを作る方法

質問

エクセルのマクロでプログラムを組んでグラフを作るときXの値の範囲とYの値の範囲をそれぞれ指定する形でマクロをつくりたいのですがなかなかうまく行きません。
　また、大量のグラフを一気に作りたいのでcells()を使って作りたいのですが、どなたかご存知でしたら教えてください。

回答No.2

imogasi · ベストアンサー

＃１の者です。
＃１の補足に対して,「＊＊＊」を付けた行を追加・変更しました。約束事として、「データ範囲=」の問いに対し、「Ａ１」セルだけ範囲指定して答えると終了となります。
Sub test01()
Dim ar As Range
For i = 1 To 100 '***
Set ar = Application.InputBox("データ範囲=", Type:=8, Left:=300)
If ar.Address = "$A$1" Then Exit Sub '***
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=ar, PlotBy:= _
xlColumns
gn = InputBox("グラフシート名＝")
ActiveChart.Location Where:=xlLocationAsNewSheet, _
Name:=gn '***
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
Next i '***
End Sub

補足

返答ありがとうございます。

また2つ質問があります。

今回は繰り返し処理で多数のグラフを作ることができますがやはりデータの範囲は手打ちにしなければいけませんか?例えば、エクセルのシートでXの値の範囲を一番上の行に置き、Yの値の行が多数あるとしてマクロでYの値の行を自動的に参照していき多数のグラフを参照することはできますか?

ar.Address = "$A$1" でも範囲指定を行うことはできますか。これでX,Yの値の複数範囲を指定して、なおかつ　"$A$1" 　を変数でもあらわすことはできますか(繰り返し処理したいので...)

以上

ご対応願います。

回答No.1

imogasi

問題の意図を汲み取れたと思わないのですが、取りあえず
捨石的に第１陣解答。目的と違う点を乞う補足。
（データ）Ａ１：Ｅ７に
Ａ　　　Ｂ　　　　Ｃ　　　　Ｄ　　　　Ｅ
a 2 4 5 1
b 3 5 7 2
c 8 6 3 1
d 5 7 5 3
r 10 3 7 4
f 7 6 8 4
g 8 7 9 6
とあるとして、
（コード）
Sub test01()
Dim ar As Range
Set ar = Application.InputBox("データ範囲=", Type:=8, Left:=300)
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=ar, PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet3"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub
実行すると、グラフにする範囲を聞いてきますから、
（１）Ａ１：Ｃ７とか
（２）ＣＴＲＬキーを押しながら、Ａ１：Ａ７とＤ１：Ｅ７を指定したりする。
それでＯＫをクリック。
（１）は系列１がＢと系列２がＣとなり、Ｘ軸にはＡ列が表示される。
（２）は系列１がＤと系列２がＥとなり、Ｘ軸にはＡ列が表示される。
取りあえずＡ、ＢとかＣ，Ｄとか２列を指定してますが
３つ以上の系列でも出来ると思います。
さてご質問はこれとどう違いますか？。
沢山グラフを描くなら、グラフシートに書くべきだったですね。

補足

回答ありがとうございます。
前記の回答から、さらに質問します。ひとつのグラフシートにひとつのグラフをつくりたいので、前記の方法では毎回、手打ちでやらなければいけません。グラフにしたい範囲を指定して、一組のデータをグラフにしてそれを自動的に繰り返して複数のグラフを作りたいのですが....

例

Set ar = Application.InputBox("データ範囲=", Type:=8, Left:=300) のデータ範囲をＣｅｌｌｓ（）で指定して（）内を変数で指定して繰り返し処理でグラフをどんどん作っていきたいのですが。