Excel宏-如何自动将趋势线从图形复制到单元格

Question

我想要自动复制一个趋势线方程，从一个图表定期更新到一个单元格使用宏。

我已经成功地创建了一个宏，它将趋势线方程复制到一个单元格中，但我的问题是，即使在更新地形图和变化趋势线方程时，也总是复制相同的趋势线方程。

我所做的:在录制宏时，我将趋势线方程复制并粘贴到一个单元格中。

Sub CopyTrendline()
'
' CopyTrendline Macro
'

'
    Range("D33").Select
    ActiveSheet.Paste
End Sub

因此，我想要创建一个宏，该宏将当前趋势线方程从一个图复制到一个单元格中(在图和趋势线方程被更新之后)。现在，相同的trednline方程总是被复制，即使当图和趋势线方程已经被调整。

Answer 1

可以使用以下代码检索趋势线公式：

Sub GetEquation()
    Dim strFormula As String

    With ActiveSheet
        With .ChartObjects(1).Chart.SeriesCollection(1).Trendlines(1)
            strFormula = .DataLabel.Text
        End With
        .Range("B12").Value = strFormula
    End With
End Sub

结果：

​

​

如果希望它每次更改值时自动更新公式，则需要将其包含在Worksheet_Change事件中。希望能帮上忙。