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 ActiveChart Is Nothing Then Set myClassModule.myChartClass = ActiveSheet.ChartObjects(1).Chart Else Set myClassModule.myChartClass = ActiveChart End If For i = myClassModule.myChartClass.FullSeriesCollection.Count To 2 Step -1 myClassModule.myChartClass.FullSeriesCollection(i).Delete Next i Exit Sub s0: End Sub 2, Class Modules cl_ChartEvents Public WithEvents myChartClass As Chart Public strStart As String Private Sub myChartClass_Deactivate() Application.SendKeys ({ESC}) End Sub Private Sub myChartClass_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long) On Error Resume Next Application.ScreenUpdating = False Dim lElementID As Long Dim lArg1 As Long Dim lArg2 As Long myChartClass.GetChartElement x, y, lElementID, lArg1, lArg2 MyStartPointSelected = False If lElementID = xlSeries And Button = 1 Then If lArg2 0 Then ***mark the selected point myChartClass.SeriesCollection(lArg1).Select With Selection .MarkerBackgroundColorIndex = 45 .MarkerForegroundColorIndex = 3 End With myChartClass.SeriesCollection(lArg1).Points(lArg2).Select With Selection .MarkerBackgroundColorIndex = 5 .MarkerForegroundColorIndex = 3 End With ****display the selected point data Set range1 = Sheets(sheet1).Range($A$2:$A$16).Cells.Sp