グラフのデーター範囲の指定について質問です。

Question

例えば画像のようなシートを作ったとします。

マクロでグラフを作成しようと思うと下記のようなコードになるのですが、

Sub Sample3()
    With ActiveSheet.ChartObjects.Add(30, 50, 300, 200).Chart
        .ChartType = xlXYScatterSmoothNoMarkers
        .SetSourceData Source:=Range("B1:B3", "C1:C3")
    End With
End Sub

これを実行すると下記の画像の通り、"系列Xの値(X)"が"B1:B3"で
"系列Yの値(Y)"が"C1:C3"になっています。

これにたいしてコードを

Sub Sample3()
    With ActiveSheet.ChartObjects.Add(30, 50, 300, 200).Chart
        .ChartType = xlXYScatterSmoothNoMarkers
        .SetSourceData Source:=Range("C1:C3", "B1:B3")'←変更点
    End With
End Sub

このようにRangeを逆にしてもそれぞれの値は下記の画像のように変わりません。

これを"C1:C3"を"系列Xの値(X)"に
"B1:B3"を"系列Yの値(Y)"にするにはどうしたらいいのでしょうか？

Answer 1

グラフ作成時に指定するRangeはあくまでもデータ範囲を指定しているだけなので、その前後の入れ替えによってグラフの系列まで入れ替わることは期待できないようです

作った後に入れ替える方法は、以下サイトでの回答が参考になりそうです

excel散布図のX軸とY軸を入れ替えるＶＢＡ
https://oshiete.goo.ne.jp/qa/4612077.html

Comments

[macro-beginner]

ありがとうございました。