请高手指点VBA画图时，设置Chart.SetSourceData时总是失败的问题，非常感谢！

let_me_do 2017-05-29 10:38:32

先：
Set Tmp_ChartObj = DestSheet.ChartObjects.Add(0, 0, 0, 0)

然后：
Tmp_ChartObj.Chart.SetSourceData Source:=DestSheet.Range(“D3:E25”) '这个是OK的

但是下面的就好像编译不通过：
Tmp_ChartObj.Chart.SetSourceData Source:=DestSheet.Range(Cells(3, 4), Cells(25, Tmp_ColNo))

我主要的目的是，DestSheet.Range这个里面使用变量，不知哪位高人能指导如何实现，非常感谢！

...全文

1973 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

northwolves 2017-06-21

打赏
举报


Set Tmp_ChartObj = DestSheet.ChartObjects.Add(0, 0, 0, 0) 
Tmp_ChartObj.Activate
Tmp_ChartObj.Chart.SetSourceData Source:=DestSheet.Range(Cells(3, 4), Cells(25, Tmp_ColNo))

Visual Basic for Applications（VBA）是一种Visual Basic的一种宏语言，主要能用来扩展Windows的应用程式功能，特别是Microsoft Office软件。也可说是一种应用程式视觉化的Basic Script。

?????Sheets("异常图表").ChartObjects("图表?3").Chart.SetSourceData?Source:=Sheets("异常图表").Range("A1:B"?&?Sheets("异常图表").Range("a65536").End(xlUp).Row) ?????????? ?????????? ?????????? ?????????'?Sh...

爱好excel 的公式和VBA编程，Access数据库，VB和VB.NET，自己开发有作品《VBA代码宝》、visual studio开发的《大表格工具箱》、发票凑数器、进销存模板表格、出入库、领用单、图书管理系统的模板表格等诸多VBA功能及技巧，熟悉VBA数组、字典、正则，函数公式，SQL、VB等,拥有多年编程经验，实际案例，职场应用，应有尽有，升职加薪不是梦，学会excel函数、VBA、ACCESS数据库等办公技能，能极大地缩短工作时间，达到高效率工作，希望能跟大家一起学习进步！

目录 ■核心代码 ■操作 ■例：选中图表按下快捷键，运行宏（VBA代码）使用代码的好处： Excel 修改【数据图表】的【数据源】的范围 ■核心代码 ActiveChart.SetSourceData Source:=Range("B7:F39") 范围【B7:F39】是整个图表的范围（包括标题行） ■操作 1.随意录制一段宏，写入如下代码 Sub 宏1() ' ' 宏1 宏 ' ' 快捷键: Ctrl+l ' 'ActiveChart.SetSou

Sub 宏1() ' ' 宏1 宏 ' ' Dim i Range("O2:Y12,E2:N12").Select ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmooth).Select ActiveChart.SetSourceData Source:=Range("Sheet2!$E$2:$Y$2"), PlotBy:=xlRows a = 2 b = 200 For i = a To b...