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

名前

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

本文

こんな感じにするとよいです。

'データの取得
        Dim dt As New DataTable

'列の作成
        dt.Columns.Add("x", GetType(Integer))
        dt.Columns.Add("指数1", GetType(Integer))
        dt.Columns.Add("指数2", GetType(Integer))
        dt.Columns.Add("指数3", GetType(Integer))
        dt.Columns.Add("指数4", GetType(Integer))

'データの追加
        dt.Rows.Add(1, 700, 550, DBNull.Value, DBNull.Value)
        dt.Rows.Add(2, DBNull.Value, DBNull.Value, 500, 700)
        dt.Rows.Add(3, DBNull.Value, DBNull.Value, 500, 600)
        dt.Rows.Add(4, 700, 800, DBNull.Value, DBNull.Value)

'Chartコントロールにデータソースを設定
        Chart1.DataSource = dt
        '初期化  
        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
            .Color = Color.Red
            .YValueMembers = "指数1, 指数2"
            .IsVisibleInLegend = False      '凡例を非表示にする
            .XValueMember = "x"
        End With

Dim rosoku2 = Chart1.Series.Add("範囲縦棒2")
        With rosoku2
            .ChartType = DataVisualization.Charting.SeriesChartType.RangeColumn
            .Color = Color.Blue
            .YValueMembers = "指数3, 指数4"
            .IsVisibleInLegend = False      '凡例を非表示にする
            .XValueMember = "x"
        End With

Chart1.DataBind()

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

戻る