|
▼Kein さん:
ありがとうございます。ループの部分は動作しました
Dim ThisSheet_Name As String
Dim a As Long
For a = 1 To 5
ActiveChart.SeriesCollection.NewSeries・・1.
With ActiveChart.SeriesCollection(a)
.ChartType = xlLine
.XValues = Range(*)
.Values = Range(*)
.Name = Range()
End With
Next a
これに例えば
Dim nameCell As Range
Set nameCell = Application.InputBox(Prompt:="y軸の項目名があるセルを選択してください。", Default:="A1", Type:=8)
nameCell.Select
k = nameCell.Address
こんな感じにグラフの系列になるDataを取得させ引数化させ、最終的に(*)の部分
に代入させるのですが、1順めが終わったところで1.の部分がエラーになり停止して
しまいます。新しくもう1枚のグラフを書くようにすると、1順目で1枚2順目で2枚・・・
と動作するのですが・・・。何か命令が足りないのでしょうか。
|
|