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

Question

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

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

我做了什么：在录制宏时，我将趋势线方程复制并粘贴到一个单元格中。

Sub CopyTrendline()
'
' CopyTrendline Macro
'

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

所以，我想创建一个宏，将当前趋势线方程从绘图复制到单元格中（在绘图和趋势线方程更新之后）。现在总是复制相同的趋势线方程，即使已经调整了绘图和趋势线方程。

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 事件中。希望对你有帮助。

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

Excel Macro - How to automatically copy a trendline from a graph to a cell

excel

vba

trendline