获取 Excel 图表数据源答案

【问题标题】：Get Excel Chart datasource获取 Excel 图表数据源
【发布时间】：2017-03-29 23:25:42
【问题描述】：

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

Chart.SetSourceData(Source:=SomeRange)

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

【问题讨论】：

标签： excel vb.net visual-studio charts excel-charts

【解决方案1】：

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

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

【讨论】：

【解决方案2】：

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

【讨论】：

【解决方案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))

【讨论】：