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

henrych

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

lbzcc

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

henrych

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

Hotsun_wx

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

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

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

henrych

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

sushuijin2008

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

比较简单的方法是，用一维数组添加系列的方法，不过每一个系列的数组要转化成类似 "={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

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

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

赵莲

kankan xuexixuexi

imonior

留个记号，好好学习啊