散布図の軸を入れ替える方法を考えています。(excel2003です。)
散布図は数百枚あり、系列ごとに元データが散在しているので、
元データは触らずに、グラフの軸だけを入れ替えて表示したいのです。
例えば横軸が身長、縦軸が体重の散布図を縦軸を体重、横軸を身長にするイメージです。
xvaluesとvaluesを入れ替えるのだと思い、以下を組んでみたのですが、うまくいきません。
どのように修正すればよいか教えてください。
Sub 軸入替()
Dim cht As Chart
Dim i As Long, N As Long
Dim sxvalues As Object,svalues As Object
With ActiveSheet.ChartObjects
For N = 1 To .Count
Set cht = .Item(N).Chart
With cht.SeriesCollection
For i = 1 To .Count
sxvalues = .Item(i).XValues ←ここでエラーが出ます。
svalues = .Item(i).Values
.Item(i).Values = sxvalues
.Item(i).XValues = svalues
Next
End With
Next
End With
End Sub
以上です。
No.1ベストアンサー
- 回答日時:
元データとの連動を解除しても構わないなら
>Dim sxvalues As Object,svalues As Object
Dim sxvalues, svalues
...と、データ型を Variantで受ければいいです。
連動を保持したい場合、Formulaプロパティなどを使うと良いと思います。
Dim cht As Chart
Dim i As Long
Dim N As Long
Dim v, tmp
With ActiveSheet.ChartObjects
For N = 1 To .Count
Set cht = .Item(N).Chart
With cht.SeriesCollection
For i = 1 To .Count
With .Item(i)
v = Split(.Formula, ",")
tmp = v(1)
v(1) = v(2)
v(2) = tmp
.Formula = Join(v, ",")
End With
Next
End With
Next
End With
どうもありがとうございます!
きれいにできました。
変数の型が全然理解できていないのですが、
ひとつひとつ勉強していこうと思います。
助かりました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) エクセルのマクロとシートの保護について教えてください。 1 2022/10/18 08:36
- Visual Basic(VBA) Sheet3から2つの条件でオートフィルターで抽出した個数をSheet2へ入力するマクロで、一つ目の 4 2023/01/12 23:40
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
機械の運転時間帯を表すグラフ...
-
エクセルの円グラフで添付した...
-
エクセルの表内の軸が左寄りに...
-
エクセルのグラフ作成(横軸の...
-
Excel縦棒グラフ間隔を自由に設...
-
積立縦棒+集合縦棒+折れ線グ...
-
エクセルでグラフの横軸を等間...
-
Excelのグラフが上下逆になって...
-
横棒と折れ線の複合グラフについて
-
Excel2010 パレート図作成
-
【Excel】積み上げ横棒グラフを...
-
縦軸を反転した際に横軸が上に...
-
パワーポイントの画面がずれる
-
エクセルで枠飾り
-
Excelにメールを添付する
-
WORDの表をコピーして張り...
-
Excelで隠れてしまった図...
-
図形描画(フリーフォーム)で...
-
エクセルのグラフの色を統一す...
-
パワーポイントで、異なる資料...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
機械の運転時間帯を表すグラフ...
-
エクセルの円グラフで添付した...
-
エクセルの表内の軸が左寄りに...
-
EXCELの横軸が軸ラベル設定範囲...
-
エクセルのグラフ作成(横軸の...
-
Excel縦棒グラフ間隔を自由に設...
-
エクセルでグラフの横軸を等間...
-
項目とグラフの重なりをなくす
-
積立縦棒+集合縦棒+折れ線グ...
-
縦軸を反転した際に横軸が上に...
-
折れ線グラフで横軸の1時間の幅...
-
エクセル2010 範囲を示す横棒...
-
【Excel】積み上げ横棒グラフを...
-
Excelのグラフが上下逆になって...
-
右目盛りと左目盛りが相違する...
-
Excel2010 パレート図作成
-
Excel2010 グラフの目盛間隔を...
-
excel散布図のX軸とY軸を入れ替...
-
EXCEL2016の散布図での横軸の範...
-
横棒と折れ線の複合グラフについて
おすすめ情報