- 日時： 2007/07/27 14:50
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[チャート][][] *
* キーワード：グラフの色を指定の色に変更,クリックした系列 *
***********************************************************************************
-----------------------------------------------------------------------------------
投稿者：花ちゃん クリックした系列のグラフの色を任意の色に変更する 2007/07/26
-----------------------------------------------------------------------------------
同様の質問も何度かでていたような（深く詮索しないでね）
但し、系列個別に指定の色で塗る事はできません。ピクチャーボックス上にでも転送すれば
出来るだろうが。
'★追加部分
CommonDialog1 をフォームに貼り付けておいて下さい。
下記のイベントプロシージャを追加して下さい。
Private Sub MSChart1_SeriesSelected(Series As Integer, _
MouseFlags As Integer, Cancel As Integer)
'クリックした系列のグラフの色を任意の色に変更する
Dim r As Integer
Dim g As Integer
Dim b As Integer
'CommonDialog より指定の色を取得
On Error Resume Next
With CommonDialog1
.CancelError = True
.ShowColor
If Err.Number <> 0 Then
Err.Clear
Exit Sub
End If
r = .Color And vbRed
g = (.Color And vbGreen) \ &H100
b = (.Color And vbBlue) \ &H10000
End With
With MSChart1
'2D および 3D の折れ線グラフはPen オブジェクトを使用
If .chartType = VtChChartType2dLine Or .chartType = VtChChartType3dLine Then
.Plot.SeriesCollection(Series).Pen.VtColor.Set r, g, b
Else
.Plot.SeriesCollection(Series).DataPoints(-1).Brush.FillColor.Set r, g, b
End If
End With
End Sub
-----------------------------------------------------------------------
上記の実行図（一部合成しております）
http://hanatyan.sakura.ne.jp/samplepic/chartno23-1.gif
|
クリックした系列のグラフの色を任意の色に変更する(VB6.0)