グラフを点(プロット)だけで表示
                                                         玄関へお回り下さい。
グラフを点(プロット)だけで表示    (022)
          2D折れ線グラフを使って折れ線を非表示設定して、マーカーを表示して実現している。

  
   '折れ線の場合マーカーを表示

  If intChartType = VtChChartType2dLine And _
          mnuOption2dLineMarker.Checked = True Then
    'マーカーの表示例
    For Each series In MSChart1.Plot.SeriesCollection
      series.SeriesMarker.Show = True '2D折れ線のマーカーの表示
      series.ShowLine = False     '2D折れ線の非表示
    Next

'------------ 以下は参考に -------------------
'    With MSChart1.Plot.SeriesCollection(1)
'      '自動のマーカーを解除
'      .SeriesMarker.Auto = False
'      'マーカーのサイズを指定(小さく)
'      .DataPoints.Item(-1).Marker.Size = 150
'      'マーカーの色を指定
'      .DataPoints.Item(-1).Marker.Pen.VtColor.Set 255, 100, 0
'      'マーカーの形状を設定(別途定数による指定)
'      .DataPoints.Item(-1).Marker.Style = VtMarkerStyleUpTriangle
'    End With
    'マーカーの形状を指定して表示
    For Each series In MSChart1.Plot.SeriesCollection
      series.SeriesMarker.Show = False
      '自動のマーカーを解除
      series.SeriesMarker.Auto = False
      '個別にマーカーを指定
      Select Case series
        Case "国語"
        series.DataPoints.Item(-1).Marker.Style = _
                         VtMarkerStyleUpTriangle

        series.DataPoints.Item(-1).Marker.Pen.VtColor.Set 255, 0, 0
        Case "数学"
        'マーカーのサイズを指定(小さく)
        series.DataPoints.Item(-1).Marker.Size = 150

        series.DataPoints.Item(-1).Marker.Style = VtMarkerStyleCircle
        Case "英語"
        series.DataPoints.Item(-1).Marker.Style = VtMarkerStyle3dBall
      End Select
      series.SeriesMarker.Show = True
    Next

  Else
'    For Each series In MSChart1.Plot.SeriesCollection
'      series.SeriesMarker.Show = False  'マーカーの非表示
'      series.Pen.Width = 69
'      If series = "国語" Then
'        series.Pen.Style = VtPenStyleNull  '線を表示しない
'        series.Pen.Width = 20        '2D折れ線の太さ
'        series.Pen.VtColor.Set 255, 0, 255 '線の色
'      End If
'    Next
  End If
掲示板に質問があったので試しに作って見たものです。


2006/08/09

VBレスキュー(花ちゃん)
Visual Basic6.0  VB6.0