散布図の縦軸と横軸を入れ替えるマクロ

エクセルでy軸とx軸を入れ替えたい時があります。

普通にデーターから散布図を作ると、縦軸と横軸が逆のときがあります。見にくいので入れ替えたいですが、意外と手間なので、マクロを活用します。グラフを選択した状態で、マクロを実行すれば縦軸と横軸が入れ替わります。

Sub transposeaxis()

Dim cht As Chart
Dim i As Long
Dim N As Long
Dim v, tmp

With ActiveChart.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

'アクティブsheetのオブジェクトを、行＆列の幅を変更しても大きさを変えない
With ActiveSheet.DrawingObjects
.Placement = xlMove
.PrintObject = True
End With

End Sub