vb中竖排文字只能转换成图片，旋转

https://bbs.bccn.net/thread-511192-1-1.html

https://bbs.bccn.net/thread-511100-1-1.html

都看一下吧。

工程——部件——勾选Microsoft Chart Control 6.0（OLEBD）

Private Sub Form_Load()
    Randomize Timer
    Dim i As Integer, jls As Integer
    Dim Values(1 To 15, 1 To 3)
    For i = 1 To 15
        Values(i, 1) = "T" & Format(i, "00")
    Next i
   
    For i = 1 To 15
        Values(i, 2) = Rnd * 100 '以下两个赋相同的值就行了。
        Values(i, 3) = Rnd(0) * 100
    Next i
    MSChart1.chartType = VtChChartType2dCombination
    MSChart1.Plot.SeriesCollection.Item(1).SeriesType = VtChSeriesType2dLine
    MSChart1.Plot.SeriesCollection.Item(2).SeriesType = VtChSeriesType2dBar
    MSChart1.ChartData = Values
End Sub

工程——部件——勾选Microsoft Chart Control 6.0（OLEBD）

Private Sub Form_Load()
    Randomize Timer
    Dim i As Integer, jls As Integer
    Dim Values(1 To 15, 1 To 3)
    For i = 1 To 15
        Values(i, 1) = "T" & Format(i, "00")
    Next i
   
    For i = 1 To 15
        Values(i, 1) = Rnd * 100
    Next i
    MSChart1.chartType = VtChChartType2dCombination
    MSChart1.Plot.SeriesCollection.Item(1).SeriesType = VtChSeriesType2dLine
    MSChart1.Plot.SeriesCollection.Item(2).SeriesType = VtChSeriesType2dBar
    MSChart1.ChartData = Values
End Sub

工程——部件——勾选Microsoft Chart Control 6.0（OLEBD）

Private Sub Form_Load()
    Randomize Timer
    Dim i As Integer, jls As Integer
    Dim Values(1 To 15, 1 To 3)
    For i = 1 To 15
        Values(i, 1) = "T" & Format(i, "00")
    Next i
   
    For i = 1 To 15

        Values(i, 3) = Rnd * 100
    Next i
    MSChart1.chartType = VtChChartType2dCombination
    MSChart1.Plot.SeriesCollection.Item(1).SeriesType = VtChSeriesType2dLine
    MSChart1.Plot.SeriesCollection.Item(2).SeriesType = VtChSeriesType2dBar
    MSChart1.ChartData = Values
End Sub

工程——部件——勾选Microsoft Chart Control 6.0（OLEBD）

Private Sub Form_Load()
    Randomize Timer
    Dim i As Integer, jls As Integer
    Dim Values(1 To 15, 1 To 2)
    For i = 1 To 15
        Values(i, 1) = "T" & Format(i, "00")
    Next i
   
    For i = 1 To 15
        Values(i, 2) = Rnd * 100
    Next i
    MSChart1.chartType = VtChChartType2dCombination
    MSChart1.Plot.SeriesCollection.Item(1).SeriesType = VtChSeriesType2dBar
    MSChart1.ChartData = Values
End Sub

[此贴子已经被作者于2023-2-11 15:35编辑过]

楼主以前想要收我100元制作的图，现在给你免费做出来了。哪里能找到我这样对你好的人。

您好，谢谢您的耐心制作，但是我想要的是一楼上传的图片的样式，再次感谢

如果左,右两边的刻度不一样,该如何绘制两组数据(即一组数据参考左边的刻度,一组参考右边的刻度)

那要定制开发了。