Public
Const
DAMPERCURVES
As
String
=
"DAMPER_CURVES"
Public
Const
damperCurveNormalScaling
As
String
=
"normalScaling"
Public
Const
damperCurveLogarithmicScaling
As
String
=
"logarithmicScaling"
Public
Function
GetDamperCurveTrendCoefficients(
ByVal
curveName
As
String
,
ByVal
chartName
As
String
,
ByRef
coeffA
As
Double
,
ByRef
coeffB
As
Double
)
Dim
currentChart
As
Chart
<strong>
Dim
fName
As
String
Dim
formulaString
As
String
Dim
splitA()
As
String
Dim
SplitB()
As
String
<strong>
fName = ThisWorkbook.Path &
"\temp.gif"
</strong>
Call
SetChartData(Worksheets(DAMPERCURVES), curveName, damperCurveNormalScaling, damperCurveLogarithmicScaling)
Set
currentChart = Worksheets(DAMPERCURVES).ChartObjects(chartName).Chart
currentChart.Export Filename:=fName, Filtername:=
"GIF"
<strong>
formulaString = currentChart.SeriesCollection(1).Trendlines(1).DataLabel.text
splitA = Split(Replace(formulaString,
"y = "
,
""
),
"e"
)
SplitB = Split(splitA(1),
"x"
)
coeffA = splitA(0)
coeffB = SplitB(0)
End
Function