Добрый день!
У меня такая задача: Необходимо чтобы в ячейку переносилось и автоматически обновлялось уравнение с диаграммы(уравнение линии тренда).
Пример (Cм. файл Perenos1.xls во вложении.)
Нужно чтобы в ячейку G7 переносилось уравнение линии тренда с диаграммы, т.е. в текущем случае y = 0,3107x3 - 2,7445x2 + 11,854x - 9,1575, а в ячейку G8 коэффициент R2 = 0,9202. И эти ячейки автоматически обновлялись в случае изменения уравнения на диаграмме.
Попробовала записать макрос(см ниже) но он не заработал, ругается на первую строчку.

Sub Макрос2()
ActiveSheet.ChartObjects("Диагр. 4").Activate
ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Select
ActiveWindow.Visible = False
Windows("1.xls").Activate
Range("G7").Select
ActiveSheet.Paste
End Sub

Сразу хочу оговориться, что я не программист и поправить что-нибудь в макросе своими руками вряд ли получится.

Жду вашей помощи. Заранее спасибо.