想知道怎样根据图表标题来找对应的图表更新源数据

Bestwishing

所附的三个图表,因为图表名称不知道,而且经常会变动,但图表标题不会变,
所以想问可否根据图表标题找到对应的图表来更新源数据,或有没有其它更好的方法?
(需要用VBA来写的)
请老师们帮帮忙

jiulongpo

试做了一个,看对不对:根据图表,反向获得图表数据源
Dim Mychart As ChartObject
Dim Myse As Series
Dim k As Integer, i As Integer
Dim ST As String
Dim Mysz
Range("A26:D26") = Array("系列名字", "X坐标数据", "数据引用单元格", "数据次序")
k = 26
For Each Mychart In Sheet1.ChartObjects
   k = k + 1
   Cells(k, 1) = "图表名称:" & Mychart.Name
   For Each Myse In Mychart.Chart.SeriesCollection
      k = k + 1
      ST = Myse.Formula
      ST = Mid(ST, 9, Len(ST) - 9)
      Mysz = Split(ST, ",")
      Range(Cells(k, 1), Cells(k, UBound(Mysz) + 1)) = Mysz
   Next
Next


[ 本帖最后由 jiulongpo 于 2009-4-11 22:16 编辑 ]

Bestwishing

我试着用ChartTitle进行选择,然后该数据源, 好象这种方法可以,而且更简单些

Sub test()
Dim Mychart As ChartObject
For Each Mychart In Sheet1.ChartObjects
      Mychart.Activate
  Select Case ActiveChart.ChartTitle.Characters.Text
    Case Is = "Quantity"
       ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A2:J7"), PlotBy:= _
        xlRows
    Case Is = "Amount"
       ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A10:J15"), PlotBy:= _
        xlRows
   Case Is = "Unpaid"
        ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A19:J24"), PlotBy:= _
        xlRows
  End Select
Next
End Sub

jiulongpo

哈哈...我理解错了,楼主是要设置图表的数据源,我这个是根据图表,反向获得图表数据源

Bestwishing

那是因为我没有表达清楚啊!
也要感谢楼主的分享,上面那段代码我会保留下来的,说不定哪天用的上呢!
呵...

上清宫主

回帖留下印记。谢谢楼主与jiulongpo老师

xuanfengcx

很实用的东西！

pea95

jiulongpo 发表于 2009-4-12 21:21
哈哈...我理解错了,楼主是要设置图表的数据源,我这个是根据图表,反向获得图表数据源

稿定了吗？我也很想知道，在图表操作中，更改数据源时，可以看到数据源为sheet1!数据透视表1，但是灰色的，一可修改；我也没想修改，就想准确用vba代码找出图表用的是哪个透视表，好根据透视表的筛选条件改变，更新图表的标题....

pea95

稿定了吗？我也很想知道，在图表操作中，更改数据源时，可以看到数据源为sheet1!数据透视表1，但是灰色的，一可修改；我也没想修改，就想准确用vba代码找出图表用的是哪个透视表，好根据透视表的筛选条件改变，更新图表的标题....