Excel VBA で散布図を作成する

Excel VBA で散布図を利用して、ボード線図を描画しています。
折れ線グラフで表すボード線図で、X軸が周波数でA欄に記入します。
B、C、・・・・の欄には、データが入ります。
通常のデータの場合は、問題なく表示できるのですが、A欄のデータ数が少なく、その数よりB、C、・・・の数が多いと、X軸、Y軸のデータが反転します。X軸は対数軸に変換しますので、全く無意味なグラフとなります。
X軸、Y軸のデータを指定する方法をお教えください。
データの数は変化しますので、"A4:A7"というような指定ができません。
データは、C#を使用して、DataGridView 上に整理して、それをCSVファイルに書き出してます。
VBAの散布図に書き出すところは、次のようにしています。

　・
　・
Range("A4").CurrentRegion.Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterLinesNoMarkers
ActiveChart.SetSourceData Source:=Range("A4").CurrentRegion
ActiveChart.Location Where:=xlLocationAsNewSheet
ActiveChart.ChartArea.Select
ActiveChart.PlotArea.Select
ActiveChart.Axes(xlCategory).Select
ActiveChart.Axes(xlCategory).MinimumScale = minFreq
ActiveChart.Axes(xlCategory).MaximumScale = maxFreq
　・
　・
　・
ご指導のほど、よろしくお願いいたします。

No.1 ベストアンサー 回答者： rinkun 回答日時： 2017/01/31 10:59

> ActiveChart.SetSourceData Source:=Range("A4").CurrentRegion

このメソッドの引数に PlotBy:=xlRows を追加してください。データ系列のデータの並び方向を(列に)指定します。
# 上記で間違っていたら PlotBy:=xlColumns も確認を

この回答へのお礼

ありがとうございました。
きれいにグラフ表示が出来ました。

お礼日時：2017/01/31 13:17