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

samsang

Hotsun_wx 发表于 2009-2-10 17:08
数据区域命名
=OffSet(参照起始位置,下偏移,右偏移,区域行数,区域列数)
区域函列数可以使用counta( )函数 ...

这个只适合在固定的数据源里生成动态图, 如果数据源不固定,比如数据不停的填加, 而要求图表实时更新.这个用OFFSET就不太好用了.

我是来讨说法的

这是我debug出来的，他们是一个数值型数组。chart对象好像没有Offset属性。
向左移动十个数据点，我的理解是，数据源的左边去掉是个数据就可以了

ning84

VBA图表基础教程-Excel VBA程序开发-ExcelHome技术论坛 -  https://club.excelhome.net/forum ... ead&tid=1417686

1. Sub DEL()
   
2.     Dim xlWk As Workbook
   
3.     Dim Sht As Worksheet
   
4.     Dim Rng As Range
   
5.     Dim GrpChart As Graph.Chart
   
6.     Dim oChart As Chart
   
7.     Dim oCt As ChartObject
   
8.     Dim Shp As Shape
   
9.        Set Sht = Application.ActiveSheet
   
10.    
    
11.        For Each Shp In Sht.Shapes
    
12.              Debug.Print Shp.Name, Shp.Type,
    
13.              Set GrpChart = Sht.OLEObjects(Shp.Name).Object
    
14.              With GrpChart
    
15.                   Debug.Print .Name, .ChartType ', .ChartTitle
    
16.              End With
    
17.        Next Shp
    
18. End Sub
    

复制代码