OfficeType
  1. ホーム
  2. Excel VBA
  3. グラフ
  4. グラフの縦軸、横軸を入れ替えよう

VBA～グラフの縦軸、横軸を入れ替えよう～Excel

VBAでグラフグラフの縦軸、横軸を入れ替えるする方法を解説します。

グラフの縦軸、横軸を入れ替えたい場合はChartオブジェクトのPlotByプロパティで設定します。列がデータ系列の場合はxlColumns、行がデータ系列の場合はxlRowsを設定します。

よって縦軸、横軸を入れ替えたい時はxlColumnsに設定されている場合はxlRowsに変更し、xlRowsに設定されている場合はxlColmnsに変更すればよいので上のコードのように条件分岐すればどちらの場合でも入れ替えることができます。

既にグラフがある場合

下の画像において下のコードを実行するとグラフの縦軸と横軸が切り替わります。

image-01 

Sub test1()

If ActiveSheet.ChartObjects(1).Chart.PlotBy = xlColumns Then
ActiveSheet.ChartObjects(1).Chart.PlotBy = xlRows
Else
ActiveSheet.ChartObjects(1).Chart.PlotBy = xlColumns
End If

End Sub

image-02

グラフのインデックス番号はグラフの作成順に割り振られます。今回はグラフが1つしかないのでグラフのインデックス番号は1となりChartObjects(1)となります。

グラフ作成時に縦軸、横軸を入れ替える

image-03

下のコードを実行するとグラフ作成時にタイトルも設定されます。 

Sub test2()

With ActiveSheet.Shapes.AddChart.Chart

.ChartType = xlColumnClustered
.SetSourceData Range(Range("A3"), Range("D10"))

If .PlotBy = xlColumns Then
.PlotBy = xlRows
Else
.PlotBy = xlColumns
End If

End With

End Sub

コードの説明

WithからEnd Withまでがグラフの作成、設定です。 

ActiveSheet.Shapes.AddChart.Chart

グラフを書くためのキャンバスを作成しています。

image-04 

.ChartType = xlColumnClustered

グラフの種類を設定しています。xlColumnClusteredは棒グラフの集合縦棒になります。

image-05 

.SetSourceData Range(Range("A3"), Range("D10"))

グラフのデータ範囲を設定しています。 

If .PlotBy = xlColumns Then
.PlotBy = xlRows
Else
.PlotBy = xlColumns
End If

縦軸、横軸を入れ替えています。

image-06