Sub レーダーグラフ一括作成()

Dim グラフ

i = 1
Do Until Cells(i + 2, 2) = “”
Set グラフ = ActiveSheet.Shapes.AddChart2(317, xlRadar) ’マーカーなしレーダーグラフ

With グラフ ’グラフ位置の設定
.Top = Range(Rows(1), Rows(2)).Height + Range(Rows(3), Rows(7)).Height * (i － 1)
.Left = Range(Columns(1), Columns(14)).Width
.Width = Range(Columns(15), Columns(19)).Width
.Height = Range(Rows(3), Rows(7)).Height － 1.5

With .Chart

.HasTitle = True ’タイトルを表示する
.ChartTitle.Text = Cells(i + 2, 1) & ” ” & Cells(i + 2, 2)

.HasLegend = True ’凡例を表示する
.Legend.Position = xlLegendPositionRight ’凡例を右に表示する

.Axes(xlValue).MajorUnit = 1 ’グラフの主目盛を設定する

Do Until .SeriesCollection.Count = 0 ’自動でグラフ範囲設定される場合があるので削除しておく
.SeriesCollection(1).Delete
Loop

.SeriesCollection.NewSeries ’系列（1回目）の追加
With .FullSeriesCollection(1)
.Name = “=Sheet1!” & Cells(2, 1).Address
.Values = “=Sheet1!” & Range(Cells(i + 2, 3), Cells(i + 2, 9)).Address
.XValues = “=Sheet1!” & Range(Cells(2, 3), Cells(2, 9)).Address ’レーダーチャートの項目軸設定
.Border.Color = RGB(0, 0, 255)
End With

.SeriesCollection.NewSeries ’系列（2回目）の追加
With .FullSeriesCollection(2)
.Name = “=Sheet1!” & Cells(10, 1).Address
.Values = “=Sheet1!” & Range(Cells(i + 10, 3), Cells(i + 10, 9)).Address
.Border.Color = RGB(255, 0, 0)
End With

.SeriesCollection.NewSeries ’系列（平均1回目）の追加
With .FullSeriesCollection(3)
.Name = “平均” & Cells(2, 1)
.Values = “=Sheet1!” & Range(Cells(8, 3), Cells(8, 9)).Address
.Border.LineStyle = xlDot ’点線
.Border.Weight = xlHairline ’極細
.Border.Color = RGB(50, 50, 255)
End With

.SeriesCollection.NewSeries ’系列（平均2回目）の追加
With .FullSeriesCollection(4)
.Name = “平均” & Cells(10, 1)
.Values = “=Sheet1!” & Range(Cells(16, 3), Cells(16, 9)).Address
.Border.LineStyle = xlDot
.Border.Weight = xlHairline
.Border.Color = RGB(255, 50, 50)
End With
End With

End With
Set グラフ = Nothing
i = i + 1
Loop

End Sub