求助折线图改y轴数据

Sub CreateLineCharts()
' 获取数据区域
Dim dataRange As Range
Set dataRange = Selection
' 获取学生数量
Dim numOfStudents As Integer
numOfStudents = dataRange.Rows.Count - 1
' 获取日期数量
Dim numOfDates As Integer
numOfDates = dataRange.Columns.Count - 1
' 循环创建每个学生的折线图
Dim i As Integer
For i = 1 To numOfStudents
' 定义图表对象
Dim myChart As ChartObject
' 在当前工作表中添加一个新的图表
Set myChart = ActiveSheet.ChartObjects.Add(Left:=300, Width:=375, Top:=10 + (i - 1) * 250, Height:=225)
' 设置图表类型为折线图
myChart.Chart.ChartType = xlLine
' 设置图表的数据源为当前学生的数据区域
myChart.Chart.SetSourceData Source:=dataRange.Offset(i, 0).Resize(1, numOfDates + 1)
' 设置图表标题为学生姓名
myChart.Chart.ChartTitle.Text = dataRange.Cells(i + 1, 1).Value
Next i
End Sub