excel - 获取 Excel 图表数据源

Question

使用 Visual Studio 为 Excel 图表设置数据源很容易，例如

Chart.SetSourceData(Source:=SomeRange)

但是如何获取（检索）Excel 文件中已经存在的图表的数据源（范围）？

Answer 1

我认为它已经在这里解决了：Excel VBA - 获取图表数据范围 https://stackoverflow.com/a/28391220/6868389

Answer 2

这是一个将解析系列之外的范围的函数。如果您有不使用范围的自定义系列公式，它可能会中断。

Public Function GetSourceData(ByRef cht As Chart) As Range

    Dim srs As Series
    Dim vaArgs As Variant
    Dim i As Long
    Dim rReturn As Range

    For Each srs In cht.SeriesCollection
        vaArgs = Split(Split(srs.Formula, "SERIES(")(1), ",")
        For i = 0 To UBound(vaArgs) - 1
            If rReturn Is Nothing Then
                Set rReturn = Range(vaArgs(i))
            Else
                Set rReturn = Union(rReturn, Range(vaArgs(i)))
            End If
        Next i
    Next srs

    Set GetSourceData = rReturn

End Function

用于：

?getsourcedata(activechart).Address
$B$2:$C$2,$A$3:$C$14

Answer 3

Visual Studio 代码如下所示：

Dim g As String
Dim gg() As String
Dim a As Excel.ChartObject

    a = Globals.ThisAddIn.Application.ActiveSheet.chartobjects(1)
    g = a.Chart.SeriesCollection(1).formula
    gg = g.Split(",")

    MsgBox(gg(2))