excel分段趋势线完整版.docxVIP

一、结果 点击“开始画趋势线” 任意选取两点 任意再选取两点 任意再选取两点 二、实现方法： 1, module1 Dim myClassModule As New cl_ChartEvents Public MyStartPointSelected As Boolean Sub Initializechart() Application.ScreenUpdating = True Application.EnableEvents = True MyStartPointSelected = False On Error GoTo s0 If ActiveChart Is Nothing Then Set myClassModule.myChartClass = ActiveSheet.ChartObjects(1).Chart Else Set myClassModule.myChartClass = ActiveChart End If Exit Sub s0: MsgBox No Chart in this sheet!... End Sub Sub Initializechart1() Application.ScreenUpdating = True Application.EnableEvents = True On Error GoTo s0 If ActiveCha