MSChart のデータポイントラベルの設定及びマーカーの設定(VB6.0)

　下記プログラムコードに関する補足・注意事項　
動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6)
Option　：[Option Explicit]
参照設定：追加なし
使用 API：なし
その他　：条件は、１．MSChart での基本的な設定(表示データの設定・グラフの種類の設定)の表示環境で。
　　　　：下記、コードは、sChartViewSet プロシージャ内に追加記入願います。

１．MSChart のデータポイントラベルの設定及びマーカーの設定

　　図１．データポイントラベルの設定結果
　

　　'データポイントラベルの設定
　　Dim s As Series
　　For Each s In MSChart1.Plot.SeriesCollection
　　　　With s.DataPoints.Item(-1).DataPointLabel

　　　　　　'表示位置の設定(デフォルトは VtChLabelLocationTypeNone (非表示))
　　　　　　.LocationType = VtChLabelLocationTypeAbovePoint 'ラベルはデータポイントの上に表示

　　　　　　'ラベルに表示するデータを設定
　　　　　　.Component = VtChLabelComponentValue　　　　　　'データポイントの値をラベルに表示

　　　　　　'表示するデータのフォーマット設定
　　　　　　.ValueFormat = "0"　　　　　　　　　　　　　　　'"0.0" "#,###.0"　表示フォーマット

　　　　　　'フォントサイズとスタイルを設定
　　　　　　.VtFont.Size = 12
　　　　　　.VtFont.Style = VtFontStyleBold

　　　　　　'フォント色の設定(デフォルトは、全て黒色)
　　　　　　.VtFont.VtColor.Set _
　　　　　　s.DataPoints(-1).Brush.FillColor.Red, _
　　　　　　s.DataPoints(-1).Brush.FillColor.Green, _
　　　　　　s.DataPoints(-1).Brush.FillColor.Blue　　　　　 'グラフの表示色と同じ色に設定

　　　　　　'系列、個別にフォント色を設定する場合
　　　　　　If s.LegendText = "国語" Then
　　　　　　　　.VtFont.VtColor.Set 255, 0, 255　　　　　　 'vbMagenta に設定
　　　　　　End If
　　　　End With
　　Next

注意!　s.LegendText = "国語" 等で識別する場合、凡例のテキストを変更した場合は、そのテキスト(国語です)を指定の事

２．MSChart のマーカーの設定

　 '標準のマーカーを表示する場合
　　With MSChart1
　　　　Dim s As Series
　　　　For Each s In .Plot.SeriesCollection
　　　　　　s.SeriesMarker.Show = True
　　　　Next s
　　End With

　　'系列個別に任意のマーカーを設定
　　For Each s In MSChart1.Plot.SeriesCollection
　　　　'自動のマーカーを解除
　　　　'Auto プロパティがあるものは、解除してからでないと設定が有効にならない
　　　　s.SeriesMarker.Auto = False
　　　　'個別にマーカーを指定
　　　　Select Case s
　　　　　　Case "国語"　　 '注意!　凡例のテキストを変更した場合は、そのテキスト(国語です)を指定の事
　　　　　　　　s.DataPoints.Item(-1).Marker.Style = VtMarkerStyleUpTriangle
　　　　　　　　'マーカーの色だけ変更
　　　　　　　　s.DataPoints.Item(-1).Marker.Pen.VtColor.Set 0, 255, 255
　　　　　　Case "数学"
　　　　　　　　s.DataPoints.Item(-1).Marker.Style = VtMarkerStyleCircle
　　　　　　　　'マーカーのサイズを変更(大きく)
　　　　　　　　s.DataPoints.Item(-1).Marker.Size = 400
　　　　　　Case "英語"
　　　　　　　　s.DataPoints.Item(-1).Marker.Style = VtMarkerStyle3dBall
　　　　End Select
　　　　s.SeriesMarker.Show = True
　　Next

注意!　"国語" 等で識別する場合、凡例のテキストを変更した場合は、そのテキスト(国語です)を指定の事

マーカーの定数は下記より選択して下さい。
VtMarkerStyleNull　　　　　　　 '隠ぺい
VtMarkerStyleDash　　　　　　　 'ダッシュマーカー
VtMarkerStylePlus　　　　　　　 'プラスマーカー
VtMarkerStyleX 　　　　　　　　 'X マーカー
VtMarkerStyleStar　　　　　　　 '星マーカー
VtMarkerStyleCircle　　　　　　 '円マーカー
VtMarkerStyleSquare　　　　　　 '4 角マーカー
VtMarkerStyleDiamond　　　　　　'菱形マーカー
VtMarkerStyleUpTriangle　　　　 '3 角マーカー
VtMarkerStyleDownTriangle　　　 '逆 3 角マーカー
VtMarkerStyleFilledCircle　　　 '塗りつぶし円マーカー
VtMarkerStyleFilledSquare　　　 '塗りつぶし 4 角マーカー
VtMarkerStyleFilledDiamond　　　'塗りつぶし菱形マーカー
VtMarkerStyleFilledUpTriangle　 '塗りつぶし 3 角マーカー
VtMarkerStyleFilledDownTriangle '塗りつぶし逆 3 角マーカー
VtMarkerStyle3dBall　　　　　　 '3 次元ボールマーカー

検索キーワード及びサンプルコードの別名(機能名)

MSChart コントロール　チャートコントロール　グラフ
グラフの上部に値を表示する　グラフの上部にデータを表示　折れ線グラフでマークを表示

VBレスキュー(花ちゃん)

Visual Basic 6.0