如何用VBA实现动态修改图表(chart)中的数据源

henrych · 发表于 2009-2-10 16:45

这个帖在VBA编程版发过，斑竹让我来这里问问，不知道怎么转帖，就再发一遍在这里了。抱歉！
大家好，我是新来的，请多关照。
最近在想办法把日常office的工作通过vba实现，发现这个论坛正是我想要的。
想问一下有没有人知道如何使用vba实现动态修改图表(chart)中的数据源的方法？
即：有很多图表，每个图表的数据源都是来自各个不同SHEET中的相同的数据列，而各个SHEET中的数据行会定期自动追加，想通过VBA实现，点一个按钮，图表中的数据源就自动更新包含追加的数据。
烦请知道的兄弟姐妹帮忙指点一二，谢谢啦！

lbzcc · 发表于 2009-2-10 16:49

可以不用VBA 通过定义名称的方式实现
因为没有数据，建议楼主在论坛里搜索“动态图表”

henrych · 发表于 2009-2-10 17:06

我本想采用名称定义的方法的，可是图表太多了，要定义的名称很多，而且新增图表的话感觉也不是很方便，所以想采用VBA实现。

Hotsun_wx · 发表于 2009-2-10 17:08

数据区域命名
=OffSet(参照起始位置,下偏移,右偏移,区域行数,区域列数)
区域函列数可以使用counta( )函数来计算

示例：
=OffSet(Sheet1!$A$1,,,Counta(Sheet1!$A:$A),Counta(Sheet1!$1:$1))
以A1为起始位置选取区域

[ 本帖最后由 Hotsun_wx 于 2009-2-10 17:11 编辑 ]

henrych · 发表于 2009-2-11 13:45

数据区域的方法太繁琐了。
因为我的图表中有好几个系列的数据，而且每个系列都来自于不同SHEET的不同数据列，如此的话，我要定义很多数据区域名称，感觉很繁琐。
所以想通过VBA写一个子过程来自动实现，请问有没有合适的方法介绍，谢谢！

sushuijin2008 · 发表于 2009-6-20 20:59

Dim myRange As Range
   Dim myChart As ChartObject
' Dim R As Integer
   i = 0
      For n = 1 To 10
      i = i + 1
   With Sheet1
      .ChartObjects.Delete
      'R = .Range("A65536").End(xlUp).Row

      Set myRange = .Range("A1:A" & i & ", B1:B" & i & ",C1:C" & i & ",D1:D" & i & "")
   Set myChart = .ChartObjects.Add(320, 140, 400, 250)
      With myChart.Chart
            .ChartType = xlLineMarkers
            .SetSourceData Source:=myRange, PlotBy:=xlColumns
         .ApplyDataLabels ShowValue:=True
            .HasTitle = True
         .ChartTitle.Text = "Measurement Result Chart"
         With .ChartTitle.Font
               .Size = 20
               .ColorIndex = 3
               .Name = "1"
            End With
            With .ChartArea.Interior
               .ColorIndex = 8
               .PatternColorIndex = 1
               .Pattern = xlSolid
         End With
   End With

   End With
      Next n

cn2010 · 发表于 2010-2-10 14:28

比较简单的方法是，用一维数组添加系列的方法，不过每一个系列的数组要转化成类似 "={1,2,3,4,5}"  这样的string才能赋给SeriesCollection的Values，示例代码如下：

Sub ChartCreate()

Dim A() As Variant
A = Array(1, 2, 3, 4, 5, 6, 7)  '定义数组并赋值

For i = LBound(A) To UBound(A) '将数组转换成String格式
str_A = str_A & A(i) & ","
Next
str_A = "={" & Left(str_A, Len(str_A) - 1) & "}"

Charts.Add '添加Chart
ActiveChart.ChartType = xlLineMarkers


ActiveChart.SeriesCollection.NewSeries  '添加系列
ActiveChart.SeriesCollection(1).Values = str_A

End Sub

dul · 发表于 2010-2-10 20:42

原帖由 henrych 于 2009-2-10 16:45 发表
这个帖在VBA编程版发过，斑竹让我来这里问问，不知道怎么转帖，就再发一遍在这里了。抱歉！
大家好，我是新来的，请多关照。
最近在想办法把日常office的工作通过vba实现，发现这个论坛正是我想要的。
想问一下有 ...

发个附件上来，这样是不好帮到你的

赵莲 · 发表于 2013-8-26 14:12

kankan xuexixuexi

imonior · 发表于 2013-9-17 00:03

留个记号，好好学习啊

		自动登录	找回密码
密码			免费注册

[求助] 如何用VBA实现动态修改图表(chart)中的数据源