绘制图表时使用录制的宏ActiveChart.SeriesCollection(1).Values都不能设置高手帮帮

64059370 · 发表于 2013-1-17 10:46

本帖最后由 64059370 于 2013-1-17 10:57 编辑

在用VBA自动添加系列时为什么ActiveChart.SeriesCollection(1).Values 总是定义错误就算是直接使用录制的宏都是错误如下代码这是为什么怎么样才能正确呢
Sub Macro9()
'
' Macro9 Macro
' 宏由 fdg录制，时间: 2013-1-17
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Data!R5C2:R12C2"
ActiveChart.SeriesCollection(1).Values = "=Data!R5C8:R12C8"
ActiveChart.SeriesCollection(1).NAME = "=Data!R6C1"
End Sub

我用的是2003

64059370 · 发表于 2013-1-18 15:36

已经解决了
03版本设定Values时必须要有数值
而07可以在没有数值的情况下也可以设定区域

12wqsa · 发表于 2014-11-25 19:49

2003版，怎么解决的，求教

12wqsa · 发表于 2014-11-25 19:51

能告诉怎么解决的吗，折腾半天了，也没找到方法，谢谢

ning84 · 发表于 2023-3-10 18:23

Sub ddd()
'ActiveChart.SeriesCollection.NewSeries
'ActiveChart.SeriesCollection(2).Name = "=Sheet1!$A$3"
ActiveChart.SeriesCollection(1).XValues = _
"='Sheet1'!$f$1:$I$1,'Sheet1'!$B$1:$e$1"
ActiveChart.SeriesCollection(1).Values = _
"=Sheet1!$f$2:$I$2,Sheet1!$B$2:$e$2"
ActiveChart.SeriesCollection(3).Values = _
"=Sheet1!$f$4:$I$4,Sheet1!$B$4:$e$4"
ActiveChart.SeriesCollection(2).Values = _
"=Sheet1!$f$3:$I$3,Sheet1!$B$3:$e$3"
ActiveChart.SeriesCollection(3).Name = "='Sheet1'!$A$4"
End Sub

复制代码

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

[求助] 绘制图表时使用录制的宏ActiveChart.SeriesCollection(1).Values都不能设置 高手帮帮

[求助] 绘制图表时使用录制的宏ActiveChart.SeriesCollection(1).Values都不能设置高手帮帮