Microsoft Chart Control6.0を使っての折れ線グラフの設定色々 (8個)           (SNo.209) 折れ線の線種・太さ等を設定 　　線の種類を設定 　　線の太さを設定 　　線の色を設定 折れ線のマーカーの設定 　　マーカーの形状を設定 　　マーカーの大きさを設定 　　マーカーの色を設定 　　マーカーの表示・非表示を設定 折れ線グラフでマーカーのみ表示して（線は非表示で）プロット表示 　　折れ線の線を非表示に設定
使用コントロール	Microsoft Chart Control（AxMicrosoft Chart Control）
その他条件	WindowsXP(Vista)　Visual Basic 2005(VB2008)VB2005 パソコン内にVB6.0がインストールされていないと使用できません。 ツールボックスを右クリックして、アイテムの選択又は、アイテムの追加と削除をクリックして、COM コンポーネント タブ内のMicrosoft Chart Control6.0 にチェックを入れ、ツールボックス内のMicrosoft Chart Control6.0コントロールをFormに貼り付けて下さい。
'★★★★★  折れ線の線種・太さ等を設定  ★★★★★    With AxMSChart1.Plot.SeriesCollection       '線の種類を設定       .Item(1).Pen.Style = MSChart20Lib.VtPenStyle.VtPenStyleDashDit       '線の太さを設定       .Item(2).Pen.Width = 100       '線の色を設定       .Item(3).Pen.VtColor.Set(255, 192, 203)    End With 　上記実行結果
'★★★★★  折れ線のマーカーの設定  ★★★★★    With AxMSChart1.Plot.SeriesCollection.Item(3)       '自動のマーカーを解除       .SeriesMarker.Auto = False       'マーカーのサイズを指定       .DataPoints.Item(-1).Marker.Size = 200       'マーカーの色を指定       .DataPoints.Item(-1).Marker.Pen.VtColor.Set(255, 0, 0)       'マーカーの形状を設定（別途定数による指定）       .DataPoints.Item(-1).Marker.Style = MSChart20Lib.VtMarkerStyle.VtMarkerStyleCircle       'マーカーを表示（最後に設定の事）       .SeriesMarker.Show = True    End With 　上記実行結果
'★★★★★  折れ線グラフでマーカーのみのプロット表示  ★★★★★    For Each series As Object In AxMSChart1.Plot.SeriesCollection       '自動のマーカーを解除       series.SeriesMarker.Auto = False       'マーカーのサイズを指定       series.DataPoints.Item(-1).Marker.Size = 200       '折れ線を非表示に設定       series.Pen.Style = MSChart20Lib.VtPenStyle.VtPenStyleNull       'マーカーを表示（最後に設定の事）       series.SeriesMarker.Show = True    Next End Sub 　 上記実行結果
時々掲示板の質問にも見受けられますので、掲載しておきます。 VB6.0 でも同様の設定で動作します。
お断り Microsoft Chart Control はCOMオブジェクトなので当然、Marshal.ReleaseComObject での解放処理が必要ですが、Excel ほど、影響を受けない（見られない）ようなので、操作をわかりやすくする意味から省略しておりますが、実使用においては解放処理を付け加えてご使用願います。 又、上記コードは、Microsoft Chart Control6.0を使ってのグラフ表示例 の一部として使って下さい

2006/08/12


VBレスキュー(花ちゃん)
VB.NET2003　　VB2005