excel分段趋势线(最新整理版).docx

一、结果

点击“开始画趋势线”

任意选取两点

任意再选取两点

任意再选取两点

二、实现方法：

1,module1

DimmyClassModuleAsNewcl_ChartEvents

PublicMyStartPointSelectedAsBoolean

SubInitializechart()

Application.ScreenUpdating=True

Application.EnableEvents=True

MyStartPointSelected=False

OnErrorGoTos0

IfActiveChartIsNothingThen

SetmyClassModule.myChartClass=ActiveSheet.ChartObjects(1).Chart

Else

SetmyClassModule.myChartClass=ActiveChart

EndIf

ExitSub

s0:

MsgBoxNoChartinthissheet!...

EndSub

SubInitializechart1()

Application.ScreenUpdating=True

Application.EnableEvents=True

OnErrorGoTos0

IfActiveChartIsNothingThen

SetmyClassModule.myChartClass=ActiveSheet.ChartObjects(1).Chart

Else

SetmyClassModule.myChartClass=ActiveChart

EndIf

Fori=myClassModule.myChartClass.FullSeriesCollection.CountTo2Step-1

myClassModule.myChartClass.FullSeriesCollection(i).Delete

Nexti

ExitSub

s0:

EndSub

2,ClassModules

cl_ChartEvents

PublicWithEventsmyChartClassAsChart

PublicstrStartAsString

PrivateSubmyChartClass_Deactivate()

Application.SendKeys({ESC})

EndSub

PrivateSubmyChartClass_MouseDown(ByValButtonAsLong,ByValShiftAsLong,ByValxAsLong,ByValyAsLong)

OnErrorResumeNext

Application.ScreenUpdating=False

DimlElementIDAsLong

DimlArg1AsLong

DimlArg2AsLong

myChartClass.GetChartElementx,y,lElementID,lArg1,lArg2

MyStartPointSelected=False

IflElementID=xlSeriesAndButton=1Then

IflArg20Then

***marktheselectedpoint

myChartClass.SeriesCollection(lArg1).Select

WithSelection

.MarkerBackgroundColorIndex=45

.MarkerForegroundColorIndex=3

EndWith

myChartClass.SeriesCollection(lArg1).Points(lArg2).Select

WithSelection

.MarkerBackgroundColorIndex=5

.MarkerForegroundColorIndex=3

EndWith

****displaytheselectedpointdata

Setrange1=Sheets(sheet1).Range($A$2:$A$16).Cells.Sp