tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の投稿サンプル用掲示板
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
マーカーの表示例(VB6.0) ( No.3 )  [親スレッドへ]
日時: 2007/07/23 11:46
名前: 花ちゃん

***********************************************************************************
* カテゴリー:[チャート][][]                                                      *
* キーワード:MSChart コントロール で凡例を表示する                               *
***********************************************************************************
-----------------------------------------------------------------------------------
投稿者:花ちゃん  MSChart コントロール でマーカーの表示例 2007/07/23
-----------------------------------------------------------------------------------

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

'★追加部分
'------------------- マーカーの表示 ----------------------
   '標準のマーカーを表示する場合
   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 次元ボール マーカー

---------------------------------------------------------------------
★上記実行図
 http://hanatyan.sakura.ne.jp/samplepic/Chart001.htm



 [スレッド一覧へ] [親スレッドへ]