マクロでグラフ系列の列と行を入れ替えたい

質問

既存グラフの系列の指定を、「行」→「列」または「列」→「行」に変更するマクロを作りたいのですが・・・SetDateSourceでPlot Byを使うには、Rangeも指定する必要があるようで、でもRangeはグラフによっていろいろです。Rangeを変更せずにPlot Byだけを変更するには、どのような記述になるでしょうか。
よろしくお願いします。

回答No.1

noname#29107 · ベストアンサー

こんな感じでしょうか。
Sub test()
Dim wk As Long
wk = ActiveChart.PlotBy
If wk = xlColumns Then
　　ActiveChart.PlotBy = xlRows
Else
If wk = xlRows Then
　　ActiveChart.PlotBy = xlColumns
End If
End If
End Sub

お礼

どうもありがとうございました。解決しました。
SetDateSourceは必要ないんですね。
初心者なもので、すぐつまづいてしまいます。
助かりました。

回答No.2

imogasi

＃１のご回答でニーズに合いましたか。
でない場合は実例のモデルのデータを（少数でも）例示して見てください。
やりたいこと・ニーズが良く掴めません。

お礼

ありがとうございました。
#1の方の回答で解決しました。ホントに初歩的なことだったようで・・・ (^^;)