Private Sub Chart_PointSelected(Series As Integer, DataPoint As Integer, MouseFlags As Integer, Cancel As Integer) Chart.Data 就是纵坐标 Chart.RowLabel 就是横坐标 End Sub
Private Sub MSChart1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1 = "(" + Format(X / 15, "000") + "," + Format(Y / 15, "000") + ")" End Sub
Chart.Data 就是纵坐标
Chart.RowLabel 就是横坐标
End Sub
本人认为要获得曲线上任意点的坐标,只有用鼠标捕捉!但是,这涉及到相对坐标的转换,必须先获得坐标轴的最大,最小坐标在屏幕或窗体上的坐标!但如何获取?
Text1 = "(" + Format(X / 15, "000") + "," + Format(Y / 15, "000") + ")"
End Sub