範囲縦棒グラフで色指定をするには？ (ID:147820)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

VB2010 Chart 範囲縦棒グラフで教えてください。

１、dtRow(0) > dtRow(1) 或いは dtRow(0) < dtRow(1) の時に、縦棒の色を指定するには？
２、縦棒の幅、縦棒と縦棒の間隔 を指定には？
    （当然ですが、縦棒の幅を狭くし間隔を詰めれば縦棒はチャートの左側に寄り右側は空きます）

超初心者です。よろしくお願いします。

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'データの取得
        Dim ds As New DataSet
        Dim dt As New DataTable
        Dim dtRow As DataRow

'列の作成
        dt.Columns.Add("指数①", Type.GetType("System.Int32"))
        dt.Columns.Add("指数②", Type.GetType("System.Int32"))
        ds.Tables.Add(dt)

'データの追加
        dtRow = ds.Tables(0).NewRow
        dtRow(0) = "700"
        dtRow(1) = "550"
        ds.Tables(0).Rows.Add(dtRow)

dtRow = ds.Tables(0).NewRow
        dtRow(0) = "800"
        dtRow(1) = "700"
        ds.Tables(0).Rows.Add(dtRow)

dtRow = ds.Tables(0).NewRow
        dtRow(0) = "500"
        dtRow(1) = "600"
        ds.Tables(0).Rows.Add(dtRow)

dtRow = ds.Tables(0).NewRow
        dtRow(0) = "700"
        dtRow(1) = "800"
        ds.Tables(0).Rows.Add(dtRow)

'Chartコントロールにデータソースを設定
        Chart1.DataSource = ds
        '初期化  
        Chart1.Series.Clear()
        '
        Chart1.ChartAreas(0).AxisX.MajorGrid.Enabled = False
        Chart1.ChartAreas(0).AxisX.MinorGrid.Enabled = False
        '
        Dim rosoku = Chart1.Series.Add("範囲縦棒")
        With rosoku
            .ChartType = DataVisualization.Charting.SeriesChartType.RangeColumn
            '.XValueMember = "日付"
            .YValueMembers = "指数①, 指数②"
            .IsVisibleInLegend = False      '凡例を非表示にする
        End With
        Chart1.DataBind()
    End Sub

←解決時は質問者本人がここをチェックしてください。

戻る