excel - VBA图表：如何从图表系列中读取公式

Question

如何读回分配给任何图表系列属性的公式？即当我有一个简单的 xy 散点图时，我可以为 Name 属性分配一个公式

ActiveChart.FullSeriesCollection(1).Name = "=Sheet2!$D$1"
Debug.Print ActiveChart.FullSeriesCollection(1).Name 
' DOES NOT Print =Sheet2!$D$1, but the value in that cell

问题是，当我稍后阅读它时，它总是返回公式的值，而不是公式本身。

有任何想法吗？

Answer 1

FullSeriesCollection适用于我目前没有的 Excel 2013。但是，以下代码在 Excel 2010 中显示了系列公式，我相信它应该适用于 2013：

Sub Blah1()
    Dim cht As ChartObject

    Set cht = ActiveSheet.ChartObjects(1)
    MsgBox cht.Chart.SeriesCollection(1).Formula
End Sub

如果图表不是嵌入式图表，则以下等效代码（用于图表工作表）也适用：

Sub Blah2()
    Dim cht As Chart

    Set cht = ActiveChart
    MsgBox cht.SeriesCollection(1).Formula
End Sub