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

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

我已经设法创建了一个宏，将趋势线方程复制到单元格中，但我的问题是，始终复制相同的趋势线方程，即使在绘图更新和趋势线方程更改时也是如此

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

Sub CopyTrendline()
'
' CopyTrendline Macro
'

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

---

因此，我想创建一个宏，将当前趋势线方程从绘图复制到单元格中（在绘图和趋势线方程更新之后）。现在，即使已调整绘图和趋势线方程，也始终复制相同的TredLine方程。

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

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

结果:

---

如果希望它在每次更改值时自动更新公式，则需要将其包含在

工作表\u Change

事件中。希望有帮助。

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

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

结果:

如果希望它在每次更改值时自动更新公式，则需要将其包含在

工作表\u Change

事件中。希望能有帮助