Excel VBA配列からレーダーチャートに系列を追加

Question

塗りつぶしレーダーチャートを作成するVBAシリーズの追加に問題があります。これを行うより良い方法があるかもしれませんが、希望のグラフ（ VBAなしで）を作成するには、ワークシートに（120,12）という表を作成し、A1：L120の範囲に「塗りつぶされたレーダー」グラフを追加します、手動のような数式バーを更新：

=SERIES("name1",,'Sheet1'!$A$1:$A$120,1) 
=SERIES("name2",,'Sheet1'!$B$1:$B$120,2) 
etc for 12 more series 

これだけのように見えるチャート作り、各列のようにゼロ以外の11の値を有することがアイデアである：

は

ここで第一の悪い例ですが私が通常チャートを作るために使用する範囲の3列：

私はVBAでこれを行うことができますが、値は、ワークシートの範囲から（120,12）の配列になります。私は似た意図を持ったいくつかの異なるページを読んだが、私はまだこの特定の問題に取り組んでいるページを見ていない。 1つの大きな問題は、各シリーズは配列の1つの列から来る必要があり、多くのページでは、配列から1つの列を引っ張って= SERIES関数に入れることはできないということです。

しかし、私が取り組んでいる大きな問題は、配列の値でグラフにデータを取り込むことです。この問題の助けがあれば大歓迎です。

ありがとうございます！

Answer 1

This post partially answers the question。

以下の画像のようにデータを設定します。

そして、次のコードは、複数の一連のチャートを作成します。

Sub CreateChartFromArray() 

Dim c As Chart 
Dim s As Series 
Dim myData As Variant 

ActiveSheet.Shapes.AddChart.Select 
Set c = ActiveChart 
ActiveChart.ChartType = xlRadar 

For i = 1 To 12 
myData = Range(Cells(1, i), Cells(101, i)).Value 
    Set s = c.SeriesCollection.NewSeries() 
    s.Values = myData 
Next 

End Sub