タイトル : Re^5: ChartのX軸の日付や時刻の表示を任意に指定。 投稿日 : 2016/08/12(Fri) 07:48 投稿者 : shu
先のコードを一部変更して ループで設定するようにすると出来るかもしれません。 Dim day0 = #7/31/2016# Dim rnd As New Random() For Each dy In Enumerable.Range(1, 100) _tbl.Rows.Add(day0.AddDays(dy), rnd.Next(0, 20)) Next ・・・ ・・・ With Chart1.ChartAreas(0).AxisX Dim dylbl = day0.AddDays(1) Dim EndDy = day0.AddDays(100) Do While dylbl <= EndDy For Each dy In {1, 10, 20} Dim dy2 = dylbl.AddDays(dy - 1) Dim idx = dy2.Subtract(day0).Days With .CustomLabels.Add(idx - labelWidth, idx + labelWidth, dy2.ToString("M/d")) .GridTicks = GridTickTypes.All End With Next dylbl = dylbl.AddMonths(1) Loop |