Sub Macro1() ' Macro1 Macro Set CTop = Selection(1) Set CLast = Selection(Selection.Count)
Dim i As Integer For i = 0 To 2 y = i * 3 With ActiveSheet.Shapes.AddChart.Chart .ChartType = xlRadar .SetSourceData Source:=Range(CTop.Offset(0, y), CLast.Offset(0, y)) End With Next i End Sub ただ、データに問題があり、「行9」以降の部分を抜き出してグラフを作りたいんです そこで↓のように範囲選択をして実行したのですが、系列名が出ないのでどのデータかわかりにくいんですよね ②https://i.imgur.com/u2vrDOl.jpg
