使用VBA巧妙获取图表数据源区域

taller_2000

已于 2024-05-25 03:00:09 修改

阅读量1.3k

点赞数 8

分类专栏：图表 VBA 单元格文章标签：图表数据源 DataSource Chart 更新图表

于 2024-04-14 12:19:10 首次发布

本文链接：https://blog.csdn.net/taller_2000/article/details/137741294

版权

本文介绍如何使用VBA在没有直接接口的情况下，通过解析图表公式获取Excel图表的数据源区域。作者提供了示例代码，展示了如何读取图表的x轴和y轴区域，以及工作表和数据源地址。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在日常工作中，使用VBA操作Excel图表是经常遇到的场景。

示例图表如下：

在这里插入图片描述

使用如下代码可以更新图表的数据源区域，增加一个数据系列。

Sub UpdateChart()
    ActiveSheet.ChartObjects(1).Activate
    ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$D$6")
End Sub

更新后的图表如下所示。

在这里插入图片描述

代码很简单，即使大家不知道SetSourceData方法，也可以通过录制宏的方法获得代码。

现在问题来了，如何读取图表的数据源区域呢？Chart对象并没有SourceData属性，也没有GetSourceData方法。这只能说明微软并未提供相应的接口，我们仍然可以使用变通的方法来获取图表的数据源区域。

示例代码如下：

Sub GetDataSource()
    Dim objCht As chart, sFormula As String
    Dim aTxt, topRightCell As Range, bottomLeftCell As Ran