OfficeType
  1. ホーム
  2. Excel VBA
  3. グラフ
  4. グラフで目盛線の編集をしよう(目盛線追加消去、補助目盛線、色、太さ、スタイル)

VBA～グラフで目盛線の編集をしよう(目盛線追加消去、補助目盛線、色、太さ、スタイル)～Excel

VBAでグラフに目盛線を追加する方法を解説します。

グラフに目盛線を追加したい場合、ChartオブジェクトのAxis.HasMajorGridlinesプロパティ、Axis.HasMinorGridlinesプロパティを設定します。主軸を追加したい場合はHasMajorGridlines、補助軸を追加したい場合はHasMajorGridlinesを指定します。横軸に追加したい場合はAxisオブジェクトにAxes(xlValue)を指定します。縦軸に追加した場合はAxisオブジェクトにAxes(xlCategory)を指定します。表示したい場合はTrueを設定し、非表示にしたい場合はFalseを設定します。

既にグラフがある場合

下の画像において下のコードを実行すると第1主横軸、第1主縦軸、第1補助横軸、第1補助縦軸の順に追加されます。

image-01 

Sub test1()

With ActiveSheet.ChartObjects(1).Chart

.Axes(xlValue).HasMajorGridlines = True
.Axes(xlCategory).HasMajorGridlines = True
.Axes(xlValue).HasMinorGridlines = True
.Axes(xlCategory).HasMinorGridlines = True

End With

End Sub

image-02

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

グラフの目盛線の色、太さ、線の種類を設定したい場合は、それぞれLineFormat.ForeColorプロパティ、LineFormat.Weightプロパティ、LineFormat.DashStyleプロパティで設定できます。

下の画像において下のコードを実行すると第1主横軸の線の色が赤、太さが1.75、種類が点線になります。

image-03 

Sub test2()

With ActiveSheet.ChartObjects(1).Chart

.Axes(xlValue).MajorGridlines.Format.Line.ForeColor.RGB = RGB(255, 0, 0)
.Axes(xlValue).MajorGridlines.Format.Line.Weight = 1.75
.Axes(xlValue).MajorGridlines.Format.Line.DashStyle = msoLineSysDot

End With

End Sub

image-04

グラフ作成時に目盛線の色、太さ、線の種類を設定

image-05

下のコードを実行するとグラフ作成時にグラフに目盛線が追加されます。 

Sub test3()

With ActiveSheet.Shapes.AddChart.Chart

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

.Axes(xlValue).MajorGridlines.Format.Line.ForeColor.RGB = RGB(255, 0, 0)
.Axes(xlValue).MajorGridlines.Format.Line.Weight = 1.75
.Axes(xlValue).MajorGridlines.Format.Line.DashStyle = msoLineSysDot

End With

End Sub

コードの説明

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

ActiveSheet.Shapes.AddChart.Chart

グラフエリアを追加しています。

image-06 

.ChartType = xlColumnClustered

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

image-07 

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

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

.Axes(xlValue).MajorGridlines.Format.Line.ForeColor.RGB = RGB(255, 0, 0)

第1主横軸の線の色を赤に設定しています。

image-08 

.Axes(xlValue).MajorGridlines.Format.Line.Weight = 1.75

第1主横軸の線の太さを1.75に設定しています。

image-09 

.Axes(xlValue).MajorGridlines.Format.Line.DashStyle = msoLineSysDot

第1主横軸の線の種類を点線に設定しています。

image-10