- 日時： 2007/07/26 20:05
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[チャート][][] *
* キーワード：第２Y軸の目盛り区分を示すマーカーの設定 *
***********************************************************************************
-----------------------------------------------------------------------------------
投稿者：花ちゃん MSChartで第２Y軸の目盛り区分線を設定 2007/07/24
-----------------------------------------------------------------------------------
よく個々のデータに対して設定ができないかと言った質問がありますが、基本的に系列単位の設定になります。
（従って、質問されても殆ど回答が返ってきません）
下記をsChartViewSet() プロシージャ内に追加して下さい。
'★追加部分
'------------------- データポイントラベルの設定 ----------------------
Dim s As Series
For Each s In MSChart1.Plot.SeriesCollection
With s.DataPoints.Item(-1).DataPointLabel
'表示位置(ラベルはデータ ポイントの上に表示)
.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 '別に指定する場合
End If
' .Backdrop.Frame.Style = VtFrameStyleSingleLine '可能だが見苦しい
End With
Next
'---------------------------------------------------------------
※ データが 0 の場合ラベルに 0 を表示させたくないような場合は、値を "" と
置き換えて下さい。
★上記実行図
http://hanatyan.sakura.ne.jp/samplepic/chartno11-1.gif
|
データポイントラベルの設定(VB6.0)