olzbarter.blogg.se

Trendline.DisplayEquation = trendlineWasVisible 'If you have set the precision, you can set it back here 'Put back the trendline equation like it was before 'Add parenthesis if the formula finishes with a superscript char If preChar = "x" Or preChar = "e" Or IsNumeric(preChar) Or preChar = ")" Then If preChar = "x" Or preChar = "e" Or preChar = ")" Or IsNumeric(preChar) Then 'If we need to add a "*" before the actual char If Not bCharIsPower And bPreCharIsPower Then

If bCharIsPower And Not bPreCharIsPower Then 'Look if the char in written in superscriptīCharIsPower = (i).Font.Superscript TrendlineWasVisible = trendline.DisplayEquationįor i = 1 To Ĭhar = Mid(, i, 1) 'get the actual char 'Keep track of the style of the trendline. If trendline.Type = xlLogarithmic And xValue <= 0 Then 'If equation is logarithmic and x <= 0, return 0 'If the trendline is a moving average, return 0 Public Function calcTrendlineValueForX(trendline As trendline, xValue As Double) As Double Result = calcTrendlineValueForX((1).Trendlines(1), x)

'I have a sheet with one scatter plot in sheet "graph" You may want to set the precision of the Datalabel to suit your needs. I found a solution that works for every type of trendlines (exept for moving average of course).