| グラフを点（プロット）だけで表示 （０２２） | |
2D折れ線グラフを使って折れ線を非表示設定して、マーカーを表示して実現している。 '折れ線の場合マーカーを表示 If intChartType = VtChChartType2dLine And _ mnuOption2dLineMarker.Checked = True Then 'マーカーの表示例 For Each series In MSChart1.Plot.SeriesCollection series.SeriesMarker.Show = True '２Ｄ折れ線のマーカーの表示 series.ShowLine = False '２Ｄ折れ線の非表示 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 '２Ｄ折れ線の太さ ' series.Pen.VtColor.Set 255, 0, 255 '線の色 ' End If ' Next End If |
|
| 掲示板に質問があったので試しに作って見たものです。 | |
2006/08/09
VBレスキュー(花ちゃん)
Visual Basic6.0 VB6.0