VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

棒グラフの棒の色を設定(VB6.0) ( No.14 ) 　[親スレッドへ]

日時： 2007/07/25 21:16
名前： 花ちゃん: ***********************************************************************************
* カテゴリー：[チャート][][]                                                      *
* キーワード：棒グラフの棒の色を設定                                             *
***********************************************************************************
-----------------------------------------------------------------------------------
投稿者：花ちゃん　　MSChartで棒グラフの棒の色を設定　2007/07/25
-----------------------------------------------------------------------------------

　下記をsChartViewSet() プロシージャ内に追加して下さい。

　'★追加部分

'----------------------　棒グラフの棒の色を設定　----------------------

   '棒グラフの棒の色を設定
   Dim i As Long
   For i = 1 To 3
      With MSChart1.Plot.SeriesCollection(i).DataPoints(-1).Brush
         '色の自動設定を解除します。
         .FillColor.Automatic = False
         '色を設定します。
         If i = 1 Then   '国語
            .FillColor.Set 200, 0, 200
         End If
         If i = 2 Then   '数学
            .FillColor.Set 218, 165, 32
         End If
         If i = 3 Then   '英語
            .FillColor.Set 0, 129, 128
         End If
      End With
   Next i

'----------------------------------------------------------------------
★ くどいようですが、系列内の個々のデータに対しての設定は出来ません。
　

　★上記実行図
　http://hanatyan.sakura.ne.jp/samplepic/chartno14-1.gif