Caio,
Muito bom o seu exemplo. Já tive que usar muito estas equações de tendência.
Somente como complementação para contribuir com o assunto fiz uma pequena inclusão deste código na planilha para mostrar a equação de forma automatizada.
Sub MostraEq()
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.FullSeriesCollection(1).Trendlines(1).Select
Selection.DisplayEquation = True
Range("D1") = ActiveChart.FullSeriesCollection(1).Trendlines(1).DataLabel.Formula
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.FullSeriesCollection(1).Trendlines(1).DisplayEquation = False
End Sub
Postado : 18/10/2012 12:55 pm