vba chart

Em muốn kẻ 1 đường từ gốc tọa độ đi qua các điểm xanh kia cắt biểu đồ bao ở đâu thì có thể dóng được tọa độ giao điểm của 2 đường như hình vẽ, file exel em để bên dưới mong các bác giúp đỡ.

Sub a() Dim chrt As Chart, i As Long For i = 1 To 5 Set chrt = ActiveSheet.Shapes.AddChart2(201, xlColumnClustered, 100 + (i - 1) * 500, 50, 400, 300).Chart With chrt .SetSourceData Source:=Range("a1:b10") .SeriesCollection(1).ChartType = xlLine .SeriesCollection(1).AxisGroup = 1 With...