自動グラフ作成マクロの作り方に関してアドバイスを下さい

質問

Sub Macro4()

For i = 4 To 8
Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=zero!R13C1:R1013C1"
ActiveChart.SeriesCollection(1).Values = "=zero!R13C" & i & ":R1013C" & i
ActiveChart.SeriesCollection(1).Name = "=zero!R12C" & i
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "x axis"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "y axis"
End With
Next
End Sub

これはzeroというシートから自動的に複数のグラフを作成するマクロなのですが、
これを現在選択しているシートにするためにはどうすれば良いのでしょうか？

それと作成するグラフの名称を自分で設定したセルの内容にしたいのですが、
どうすれば良いのでしょうか？

よろしくお願い致します。

回答No.2

imogasi · ベストアンサー

シートのセルの値を取っているところ（R1C1形式になっているところ）を
sn="シート名文字列"
=Worksheets(sn).Cells(i,j)ー＞１セルの場合
とか
=Worksheets(sn).Cells(i,j).Range(Cells(i1,ji),Cells(i2,j2))
ー＞セル範囲の指定の場合
のように指定しなおしたらどうです。やってみましたか。

回答No.1

n-jun

試してないですけど１つは、

Sub Macro4()
Dim st As String '追加
st = ActiveSheet.Name '追加

For i = 4 To 8
Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=" & st & "!R13C1:R1013C1" '変更（例）

こんな感じでは？