|
▼eriwan さん:
>簡易記録を使って一人分のグラフを作成することはできるのですが、
> 2人目・3人目…と選択範囲を変化させながら作り続けることが出来ません。
こんな感じで 元データ範囲の行をLoopしてみてはいかがでしょう
Sub グラフ作成2()
Dim Xrange As Range
Dim Yrange As Range
Dim Sheetname As String
Set Xrange = Worksheets("採点").Range("A1:F1")
Set Yrange = Xrange.Offset(2) '最初のY軸データ範囲
Set Yrange = Excel.Range(Yrange, Yrange.End(xlDown)) '全データ範囲
For Each Yrange In Yrange.Rows
With Charts.Add
Sheetname = Yrange.Cells(1, 1).Value
.Name = Sheetname
.ChartType = xlRadar
.SetSourceData Union(Xrange, Yrange), PlotBy:=xlRows
.HasTitle = True
.ChartTitle.Characters.Text = Sheetname
With .Axes(xlValue)
> .MinimumScale = 0
> .MaximumScale = 100
> .MinorUnit = 50
> .MajorUnit = 50
> .Crosses = xlAutomatic
> .ReversePlotOrder = False
> .ScaleType = xlLinear
> .DisplayUnit = xlNone
End With
End With
Next
End Sub
|
|