Excel グラフを反転させるマクロ（ソースコード）Axes(xlValue)

エクセルグラフのＸ軸、Ｙ軸（第１軸、第２軸）を反転するエクセルマクロのソースコードを紹介します。

実行されると、チャートの数値軸（Ｙ軸）を反転します。もし上下反転していれば、元に戻ります。

The code reverses selected graph upside down. Procedure carry out both Axes(xlValue, xlPrimary) and Axes(xlValue,xlSecondary). If the selected chart is already reverse order then will put it back.

上のコードは、最初のシートの、チャートオブジェクトの１番目のグラフを反転させます。上の場合は、第１軸と第２軸を一度に反転させます。第２軸がない場合は、エラーとなりますので、On Error Resume Next で対処します。第２軸がないと分かっていれば削除します。

ActiveChart.Axes(xlValue, xlPrimary).ReversePlotOrder 

この値が、FALSEの場合、グラフは上下が反転します。TRUEで正転です。 下の場合は、第２軸の反転を行います。

ActiveChart.Axes(xlValue, xlSecondary).ReversePlotOrder '第２軸

下のコードは、GraphControl で使用しているコードです。