範囲縦棒グラフで色指定をするには？ (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