Excel VBA スパークラインのスタイルを変更する

スパークラインのスタイルを変更する方法

Excel 2010で追加されたスパークラインは、色や値のポイントに対してスタイルを設定して変更することができます。

SeriesColor【ｼﾘｰｽﾞｶﾗｰ】プロパティ

スパークラインに色を設定するには、スパークライングループの系列のメインの色を表すFormatColor【ﾌｫｰﾏｯﾄｶﾗｰ】オブジェクトを使用します。

FormatColor【ﾌｫｰﾏｯﾄｶﾗｰ】オブジェクトはスパークラインを表すSparklineGroup【ｽﾊﾟｰｸﾗｲﾝｸﾞﾙｰﾌﾟ】オブジェクトのSeriesColor【ｼﾘｰｽﾞｶﾗｰ】プロパティで取得できます。

SeriesColor【ｼﾘｰｽﾞｶﾗｰ】プロパティの書式と設定値の説明

オブジェクト.SeriesColor .色を設定するプロパティ

オブジェクト（必須）
スパークラインを表すSparklineGroup【ｽﾊﾟｰｸﾗｲﾝｸﾞﾙｰﾌﾟ】オブジェクトを指定します。
色を設定するプロパティ（必須）
Color【ｶﾗｰ】プロパティやColorIndex【ｶﾗｰｲﾝﾃﾞｯｸｽ】プロパティ
ThemeColor【ﾃｰﾏｶﾗｰ】プロパティのどれかを使用して色を設定します。

※FormatColor【ﾌｫｰﾏｯﾄｶﾗｰ】オブジェクトで指定できるには、スパークライン全体の色です。棒グラフで最大値にグラフだけ色を変えたい場合などのポイント毎（個別）に変更したい場合はSparkPoints【ｽﾊﾟｰｸﾎﾟｲﾝﾂ】オブジェクトを使用します。

スパークラインを作成して色を設定するコードと解説

Sub 折れ線色設定()
Dim スパーク As SparklineGroup
Set スパーク = Range("E2:E7").SparklineGroups.Add _
(Type:=xlSparkLine, SourceData:="B2:D7")
スパーク.SeriesColor.Color = RGB(255, 0, 0)
End Sub

2行目【Dim スパーク As SparklineGroup】
スパークラインを表すSparklineGroup【ｽﾍﾟｰｸﾗｲﾝｸﾞﾙｰﾌﾟ】オブジェクトを格納する変数「スパーク」をオブジェクト型(SparklineGroup)で宣言します。

3行目～4行目【Set スパーク = Range(“E2:E7″).SparklineGroups.Add _
(Type:=xlSparkLine, SourceData:=”B2:D7”)】
SparklineGroups【ｽﾊﾟｰｸﾗｲﾝｸﾞﾙｰﾌﾟｽ】オブジェクトのAdd【ｱﾄﾞ】メソッドを使用してスパークラインを作成してSetキーワードを使用してオブジェクト変数「スパーク」に代入します。

5行目【スパーク.SeriesColor.Color = RGB(255, 0, 0)】
SparklineGroup【ｽﾊﾟｰｸﾗｲﾝｳﾙｰﾌﾟ】オブジェクトのSeriesColor【ｼﾘｰｽﾞｶﾗｰ】プロパティでスパークライングループ系列のメインの色を表すFormatColor【ﾌｫｰﾏｯﾄｶﾗｰ】オブジェクトを取得してColor【ｶﾗｰ】プロパティにRGB関数で赤を表す値を設定します。

実行結果

Points【ﾎﾟｲﾝﾂ】プロパティ

スパークライン上のデータのポイントに対する設定を表すSparkPoints【ｽﾊﾟｰｸﾎﾟｲﾝﾂ】オブジェクトを取得するにはスパークラインを表すSparklineGroup【ｽﾊﾟｰｸﾗｲﾝｸﾞﾙｰﾌﾟ】オブジェクトのPoints【ﾎﾟｲﾝﾂ】プロパティを使用します。

Points【ﾎﾟｲﾝﾂ】プロパティの書式と設定値の説明

オブジェクト.Points

オブジェクト（必須）
対象のスパークラインを表す
SparklineGroup【ｽﾊﾟｰｸﾗｲﾝｸﾞﾙｰﾌﾟ】オブジェクトを指定します。取得したSparkPoints【ｽﾊﾟｰｸﾎﾟｲﾝﾂ】オブジェクトの各プロパティを使用してスパークライン上のデータのポイントに対する設定を行います。

SparkPoints【ｽﾊﾟｰｸﾎﾟｲﾝﾂ】オブジェクトのプロパティ一覧

プロパティ	内容
Markers　【ﾏｰｶｰｽﾞ】	マーカー（ポイント）
Highpoint　【ﾊｲﾎﾟｲﾝﾄ】	頂点（山）
Lowpoint　【ﾛｳﾎﾟｲﾝﾄ】	頂点（谷）
Negative　【ﾈｶﾞﾃｨﾌﾞ】	負のポイント
Firstpoint　【ﾌｧｽﾄﾎﾟｲﾝﾄ】	始点
Lastpoint　【ﾗｽﾄﾎﾟｲﾝﾄ】	終点

Markers【ﾏｰｶｰｽﾞ】プロパティ

スパークライン上のデータのポイントに対するマーカーの色と表示設定を表すSparkColor【ｽﾊﾟｰｸｶﾗｰ】オブジェクトを取得するにはSparkpoint【ｽﾊﾟｰｸﾎﾟｲﾝﾄ】オブジェクトのMarkers【ﾏｶｰｽﾞ】プロパティを使用します。
※スパークラインの種類が折れ線を表す
xlSparkLineの場合のみ有効です。

Markers【ﾏｶｰｽﾞ】プロパティの書式と設定値の説明

オブジェクト.Markers.表示や色を設定するプロパティ = 設定値

オブジェクト（必須）
スパークライン上のデータのポイントに対する設定を表すSparkpoint【ｽﾊﾟｰｸﾎﾟｲﾝﾄ】オブジェクトを指定します。
表示や色を設定するプロパティ（必須）
スパークライン上のデータのポイントに対するマーカーの表示/非表示を切り替えるにはVisible【ﾋﾞｼﾞﾌﾞﾙ】プロパティを指定します。
スパークライン上のデータのポイントに対するマーカーに色を設定するには、Markers【ﾏｰｶｰｽﾞ】プロパティにColor【ｶﾗｰ】プロパティでマーカーの色を設定するためのFormatColor【ﾌｫｰﾏｯﾄｶﾗｰ】オブジェクトを取得してColor【ｶﾗｰ】プロパティやColorIndex【ｶﾗｰｲﾝﾃﾞｯｸｽ】プロパティThemeColor【ﾃｰﾏｶﾗｰ】プロパティを指定します。
書式は「Marker.Color.Color = RGB(255,0,0)」のようになります。
なお色を設定する場合は、マーカーの表示を表すVisible【ﾋﾞｼﾞﾌﾞﾙ】プロパティの設定値が表示を表すTrueに設定されている
ことが前提条件です。
設定値（必須）
Visible【ﾋﾞｼﾞﾌﾞﾙ】プロパティの場合
設定値内容
True マーカーを表示します。
False マーカーを非表示にします。（既定値）
Color【ｶﾗｰ】プロパティやColorIndex【ｶﾗｰｲﾝﾃﾞｯｸｽ】プロパティThemeColor【ﾃｰﾏｶﾗｰ】プロパティの場合は各色の設定値を設定します。

設定値	内容
True	マーカーを表示します。
False	マーカーを非表示にします。（既定値）

データのポイントにマーカーを表示して赤色に指定するコード例

Sub マカーズ()
Dim スパーク As SparklineGroup
Set スパーク = Range("E2:E7").SparklineGroups.Add _
(Type:=xlSparkLine, SourceData:="B2:D7")
スパーク.Points.Markers.Visible = True
スパーク.Points.Markers.Color.Color = RGB(255, 0, 0)
End Sub

Highpoint【ﾊｲﾎﾟｲﾝﾄ】プロパティ

スパークライン上のデータの頂点（山）に対するマーカーの色と表示設定を表すSparkColor【ｽﾊﾟｰｸｶﾗｰ】オブジェクトを取得するには、Sparkpoint【ｽﾊﾟｰｸﾎﾟｲﾝﾄ】オブジェクトのHighpoint【ﾊｲﾎﾟｲﾝﾄ】プロパティを使用します。

Highpoint【ﾊｲﾎﾟｲﾝﾄ】プロパティの書式と設定値の説明

オブジェクト.Highpoint.表示や色を設定するプロパティ = 設定値

オブジェクト（必須）
スパークライン上のデータのポイントに対する設定を表すSparkpoint【ｽﾊﾟｰｸﾎﾟｲﾝﾄ】オブジェクトを指定します。
表示や色を設定するプロパティ（必須）
スパークライン上のデータの頂点（山）に対するマーカーの表示/非表示を切り替えるには、Visible【ﾋﾞｼﾞﾌﾞﾙ】プロパティを指定します。スパークライン上のデータの頂点（山）に対するマーカーに色を設定するには、Highpoint【ﾊｲﾎﾟｲﾝﾄ】プロパティにColor【ｶﾗｰ】プロパティでマーカーの色を設定するためのFormatColor【ﾌｫｰﾏｯﾄｶﾗｰ】オブジェクトを取得してColor【ｶﾗｰ】プロパティやColorIndex【ｶﾗｰｲﾝﾃﾞｯｸｽ】プロパティ、ThemeColor【ﾃｰﾏｶﾗｰ】プロパティを指定します。書式は「Highpoint.Color.Color = RGB(255,0,0)」のようになります。なお色を設定する場合は、マーカーの表示を表すVisible【ﾋﾞｼﾞﾌﾞﾙ】プロパティの設定値が表示を表すTrueに設定されていることが前提条件です。
設定値（必須）
Visible【ﾋﾞｼﾞﾌﾞﾙ】プロパティの場合
設定値内容
True マーカーを表示します。
False マーカーを非表示にします。（既定値）
Color【ｶﾗｰ】プロパティやColorIndex【ｶﾗｰｲﾝﾃﾞｯｸｽ】プロパティThemeColor【ﾁｰﾑｶﾗｰ】プロパティの場合は各色の設定値を設定します。

設定値	内容
True	マーカーを表示します。
False	マーカーを非表示にします。（既定値）

データの頂点（山）のポイントを表示して赤色に設定するコード例

Sub ハイポイント()
Dim スパーク As SparklineGroup
Set スパーク = Range("E2:E7").SparklineGroups.Add _
(Type:=xlSparkLine, SourceData:="B2:D7")
スパーク.Points.Highpoint.Visible = True
スパーク.Points.Highpoint.Color.Color = RGB(255, 0, 0)
End Sub

Lowpoint【ﾛｳﾎﾟｲﾝﾄ】プロパティ

スパークライン上のデータの頂点（谷）に対するマーカーの色と表示設定を表すSparkColor【ｽﾊﾟｰｸｶﾗｰ】オブジェクトを取得するには、Sparkpoint【ｽﾊﾟｰｸﾎﾟｲﾝﾄ】オブジェクトのLowpoint【ﾛｳﾎﾟｲﾝﾄ】プロパティを使用します。

Lowpoint【ﾛｳﾎﾟｲﾝﾄ】プロパティの書式と設定値

オブジェクト.Lowpoint.表示や色を設定するプロパティ = 設定値

オブジェクト（必須）
スパークライン上のデータのポイントに対する設定を表すSparkpoint【ｽﾊﾟｰｸﾎﾟｲﾝﾄ】オブジェクトを指定します。
表示や色を設定するプロパティ（必須）
スパークライン上のデータの頂点（谷）に対するマーカーの表示/非表示を切り替えるには、Visible【ﾋﾞｼﾞﾌﾞﾙ】プロパティを指定します。スパークライン上のデータの頂点（谷）に対するマーカーに色を設定するには、Lowpoint【ﾛｳﾎﾟｲﾝﾄ】プロパティにColor【ｶﾗｰ】プロパティでマーカーの色を設定するためのFormatColor【ﾌｫｰﾏｯﾄｶﾗｰ】オブジェクトを取得してColor【ｶﾗｰ】プロパティやColorIndex【ｶﾗｰｲﾝﾃﾞｯｸｽ】プロパティThemeColor【ﾃｰﾏｶﾗｰ】プロパティを指定します。書式は「Lowpoint.Color.Color = RGB(255,0,0)」のようになります。なお色を設定する場合は、マーカーの表示を表すVisible【ﾋﾞｼﾞﾌﾞﾙ】プロパティの設定値が表示を表すTrueに設定されていることが前提条件です。
設定値（必須）
Visible【ﾋﾞｼﾞﾌﾞﾙ】プロパティの場合
設定値内容
True マーカーを表示します。
False マーカーを非表示にします。（既定値）
Color【ｶﾗｰ】プロパティやColorIndex【ｶﾗｰｲﾝﾃﾞｯｸｽ】プロパティ、ThemeColor【ﾃｰﾏｶﾗｰ】プロパティの場合は各色の設定値を設定します。

設定値	内容
True	マーカーを表示します。
False	マーカーを非表示にします。（既定値）

データの頂点（谷）のポイントを表示して赤色に設定するコード例

Sub ロウポイント()
Dim スパーク As SparklineGroup
Set スパーク = Range("E2:E7").SparklineGroups.Add _
(Type:=xlSparkLine, SourceData:="B2:D7")
スパーク.Points.Lowpoint.Visible = True
スパーク.Points.Lowpoint.Color.Color = RGB(255, 0, 0)
End Sub

Negative【ﾈｶﾞﾃｨﾌﾞ】プロパティ

スパークライン上のデータの負の値に対するマーカーの色と表示設定を表すSparkColor【ｽﾊﾟｰｸｶﾗｰ】オブジェクトを取得するには、Sparkpoint【ｽﾊﾟｰｸﾎﾟｲﾝﾄ】オブジェクトのNegative【ﾈｶﾞﾃｨﾌﾞ】プロパティを使用します。

Negative【ﾈｶﾞﾃｨﾌﾞ】プロパティの書式と設定値の説明

オブジェクト.Negative.表示や色を設定するプロパティ = 設定値

オブジェクト（必須）
スパークライン上のデータのポイントに対する設定を表すSparkpoint【ｽﾊﾟｰｸﾎﾟｲﾝﾄ】オブジェクトを指定します。
表示や色を設定するプロパティ（必須）
スパークライン上のデータの負の値に対するマーカーの表示/非表示を切り替えるにはVisible【ﾋﾞｼﾞﾌﾞﾙ】プロパティを指定します。スパークライン上のデータの負の値に対するマーカーに色を設定するにはNegative【ﾈｶﾞﾃｨﾌﾞ】プロパティにColor【ｶﾗｰ】プロパティでマーカーの色を設定するためのFormatColor【ﾌｫｰﾏｯﾄｶﾗｰ】オブジェクトを取得してColor【ｶﾗｰ】プロパティやColorIndex【ｶﾗｰｲﾝﾃﾞｯｸｽ】プロパティ、ThemeColor【ﾃｰﾏｶﾗｰ】プロパティを指定します。書式は「Negative.Color.Color = RGB(255,0,0)」のようになります。
なお色を設定する場合は、マーカーの表示を表すVisible【ﾋﾞｼﾞﾌﾞﾙ】プロパティの設定値が表示を表すTrueに設定されている
ことが前提条件です。
設定値（必須）
Visible【ﾋﾞｼﾞﾌﾞﾙ】プロパティの場合
設定値内容
True マーカーを表示します。
False マーカーを非表示にします。（既定値）
Color【ｶﾗｰ】プロパティやColorIndex【ｶﾗｰｲﾝﾃﾞｯｸｽ】プロパティ、ThemeColor【ﾃｰﾏｶﾗｰ】プロパティの場合は各色の設定値を設定します。

設定値	内容
True	マーカーを表示します。
False	マーカーを非表示にします。（既定値）

データの負の値のポイントを表示して赤色に設定するコード例

Sub ネガティブ()
Dim スパーク As SparklineGroup
Set スパーク = Range("E2:E7").SparklineGroups.Add _
(Type:=xlSparkLine, SourceData:="B2:D7")
スパーク.Points.Negative.Visible = True
スパーク.Points.Negative.Color.Color = RGB(255, 0, 0)
End Sub

Firstpoint【ﾌｧｰｽﾄﾎﾟｲﾝﾄ】プロパティ

スパークライン上のデータの始点に対するマーカーの色と表示設定を表すSparkColor【ｽﾊﾟｰｸｶﾗｰ】オブジェクトを取得するには、Sparkpoint【ｽﾊﾟｰｸﾎﾟｲﾝﾄ】オブジェクトのFirstpoint【ﾌｧｰｽﾄﾎﾟｲﾝﾄ】プロパティを使用します。

Firstpoint【ﾌｧｰｽﾄﾎﾟｲﾝﾄ】プロパティの書式と設定値の説明

オブジェクト.Firstpoint.表示や色を設定するプロパティ = 設定値

オブジェクト（必須）
スパークライン上のデータのポイントに対する設定を表すSparkpoint【ｽﾊﾟｰｸﾎﾟｲﾝﾄ】オブジェクトを指定します。
表示や色を設定するプロパティ（必須）
スパークライン上のデータの始点に対するマーカーの表示/非表示を切り替えるには、Visible【ﾋﾞｼﾞﾌﾞﾙ】プロパティを指定します。スパークライン上のデータの始点に対するマーカーに色を設定するには、Firstpoint【ﾌｧｰｽﾄﾎﾟｲﾝﾄ】プロパティにColor【ｶﾗｰ】プロパティでマーカーの色を設定するためのFormatColor【ﾌｫｰﾏｯﾄｶﾗｰ】オブジェクトを取得してColor【ｶﾗｰ】プロパティやColorIndex【ｶﾗｰｲﾝﾃﾞｯｸｽ】プロパティThemeColor【ﾃｰﾏｶﾗｰ】プロパティを指定します。書式は「Firstpoint.Color.Color = RGB(255,0,0)」のようになります。なお色を設定する場合は、マーカーの表示を表すVisible【ﾋﾞｼﾞﾌﾞﾙ】プロパティの設定値が表示を表すTrueに設定されていることが前提条件です。
設定値（必須）
Visible【ﾋﾞｼﾞﾌﾞﾙ】プロパティの場合
設定値内容
True マーカーを表示します。
False マーカーを非表示にします。（既定値）
Color【ｶﾗｰ】プロパティやColorIndex【ｶﾗｰｲﾝﾃﾞｯｸｽ】プロパティ、ThemeColor【ﾃｰﾏｶﾗｰ】プロパティの場合は各色の設定値を設定します。

設定値	内容
True	マーカーを表示します。
False	マーカーを非表示にします。（既定値）

データの始点のポイントを表示して赤色に設定するコード例

Sub ファースト()
Dim スパーク As SparklineGroup
Set スパーク = Range("E2:E7").SparklineGroups.Add _
(Type:=xlSparkLine, SourceData:="B2:D7")
スパーク.Points.Firstpoint.Visible = True
スパーク.Points.Firstpoint.Color.Color = RGB(255, 0, 0)
End Sub

Lastpoint【ﾗｽﾄﾎﾟｲﾝﾄ】プロパティ

スパークライン上のデータの終点に対するマーカーの色と表示設定を表すSparkColor【ｽﾊﾟｰｸｶﾗｰ】オブジェクトを取得するには、Sparkpoint【ｽﾊﾟｰｸﾎﾟｲﾝﾄ】オブジェクトのLastpoint【ﾗｽﾄﾎﾟｲﾝﾄ】プロパティを使用します。

Lastpoint【ﾗｽﾄﾎﾟｲﾝﾄ】プロパティの書式と設定値の説明

オブジェクト.Lastpoint.表示や色を設定するプロパティ = 設定値

オブジェクト（必須）
スパークライン上のデータのポイントに対する設定を表すSparkpoint【ｽﾊﾟｰｸﾎﾟｲﾝﾄ】オブジェクトを指定します。
表示や色を設定するプロパティ（必須）
スパークライン上のデータの終点に対するマーカーの表示/非表示を切り替えるには、Visible【ﾋﾞｼﾞﾌﾞﾙ】プロパティを指定します。スパークライン上のデータの終点に対するマーカーに色を設定するには、Lastpoint【ﾗｽﾄﾎﾟｲﾝﾄ】プロパティにColor【ｶﾗｰ】プロパティでマーカーの色を設定するためのFormatColor【ﾌｫｰﾏｯﾄｶﾗｰ】オブジェクトを取得してColor【ｶﾗｰ】プロパティやColorIndex【ｶﾗｰｲﾝﾃﾞｯｸｽ】プロパティ、ThemeColor【ﾃｰﾏｶﾗｰ】プロパティを指定します。書式は「Lastpoint.Color.Color = RGB(255,0,0)」のようになります。なお色を設定する場合は、マーカーの表示を表すVisible【ﾋﾞｼﾞﾌﾞﾙ】プロパティの設定値が表示を表すTrueに設定されていることが前提条件です。
設定値（必須）
Visible【ﾋﾞｼﾞﾌﾞﾙ】プロパティの場合
設定値内容
True マーカーを表示します。
False マーカーを非表示にします。（既定値）
Color【ｶﾗｰ】プロパティやColorIndex【ｶﾗｰｲﾝﾃﾞｯｸｽ】プロパティ、ThemeColor【ﾁｰﾑｶﾗｰ】プロパティの場合は各色の設定値を設定します。

設定値	内容
True	マーカーを表示します。
False	マーカーを非表示にします。（既定値）

データの終点のポイントを表示して赤色に設定するコード例

Sub ラスト()
Dim スパーク As SparklineGroup
Set スパーク = Range("E2:E7").SparklineGroups.Add _
(Type:=xlSparkLine, SourceData:="B2:D7")
スパーク.Points.Lastpoint.Visible = True
スパーク.Points.Lastpoint.Color.Color = RGB(255, 0, 0)
End Sub

以上で、スパークラインのスタイルを変更する方法についての解説を終了します。ありがとうございました。