如何解决VBA_图表_调整图表的动态数据大小_不起作用
调整大小不适用于动态数据。调整大小不适用于动态数据。 请帮忙
Dim objCh As ChartObject
Dim ch As Chart
Dim Srs As Series
Set objCh = ActiveSheet.ChartObjects("Chart 1")
Set ch = objCh.Chart
ch.ChartType = xlXYScatterSmoothNoMarkers
Set Srs = ch.SeriesCollection.NewSeries
For j = 1 To 5
For i = 1 To 5
Srs.XValues = ActiveSheet.Range(Cells(1,3 * j - 1)).Resize(i + 1)
Srs.Values = ActiveSheet.Range(Cells(1,3 * j)).Resize(i + 1)
Next i
Next j
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。