红条在R1的中间怎么设置？
将R1-R25间距设置再小一点，怎么设置？

当前代码：

Private Sub Form_Load()
    Randomize Timer
    Dim i As Integer, jls As Integer
    Dim Values(1 To 25, 1 To 3)
    For i = 1 To 15
        Values(i, 1) = "T" & Format(i, "00")
    Next i
   
    For i = 1 To 25
        Values(i, 1) = Rnd * 1000 '以下两个赋相同的值就行了。
    Next i

    MSChart1.chartType = VtChChartType2dCombination
    MSChart1.Plot.SeriesCollection.Item(1).SeriesType = VtChSeriesType2dBar
    MSChart1.ChartData = Values
End Sub

复制来的代码，随便改了一下。

1、导入数据，直接显示柱形图

2、导入数据，直接显示折线图，可显示一条或多条不同颜色的折线

能做出来上面两种可以做数据分析，很有意义。

目前还没有这种好用的控件。也在找。

直接用画图的方法实现，很多东西不可以调整。逻辑会非常复杂。