[已解决]解释VBA代码含义（插入图表代码）

jzzhmm425

哪位能解释下这段插入图表代码的含义，我正在寻找在工作表中用vba直接插入图表的方法。谢谢各位的帮忙了

1. Public Sub fullprocedure()
   
2. 
   
3. Worksheets(2).Activate
   
4. With Worksheets(2)
   
5. .Shapes.AddChart.Select
   
6. .ChartObjects(1).Activate
   
7. .ChartObjects(1).Name = "2030"
   
8. End With
   
9. With ActiveChart
   
10. .SeriesCollection.NewSeries
    
11. .SeriesCollection(1).Name = "=Sheet1!$A$2"
    
12. .SeriesCollection(1).Values = "=Sheet1!$B$2:$AE$2"
    
13. .SeriesCollection(1).XValues = "=Sheet1!$B$1:$AE$1"
    
14. .SeriesCollection(1).ChartType = xlLine
    
15. .SeriesCollection(1).Smooth = True
    
16. .SeriesCollection(1).Select
    
17. End With
    
18. 
    
19. With Selection
    
20. .MarkerStyle = 2
    
21. .MarkerSize = 2 '数据标志mark的大小
    
22. End With
    
23. 
    
24. 
    
25. End Sub
    

复制代码

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-4-27 17:57

1. Public Sub fullprocedure()
   
2. 
   
3.     Worksheets(2).Activate  '激活第2个工作表
   
4.     With Worksheets(2)
   
5.         .Shapes.AddChart.Select     '插入图表
   
6.         .ChartObjects(1).Activate   '激活图表
   
7.         .ChartObjects(1).Name = "2030"  '图表名
   
8.     End With
   
9.     With ActiveChart
   
10.         .SeriesCollection.NewSeries         '添加新系列
    
11.         .SeriesCollection(1).Name = "=Sheet1!$A$2"      '名称，引用SHEET1的A2
    
12.         .SeriesCollection(1).Values = "=Sheet1!$B$2:$AE$2"      '系列的值
    
13.         .SeriesCollection(1).XValues = "=Sheet1!$B$1:$AE$1"     'X轴的值
    
14.         .SeriesCollection(1).ChartType = xlLine                 '折线图
    
15.         .SeriesCollection(1).Smooth = True                      '平滑线
    
16.         .SeriesCollection(1).Select                             '选中系列
    
17.     End With
    
18. 
    
19.     With Selection
    
20.         .MarkerStyle = 2                                        '菱形标记
    
21.         .MarkerSize = 2                                         '数据标志mark的大小
    
22.     End With
    
23. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Public Sub fullprocedure()
   
2. 
   
3.     Worksheets(2).Activate  '激活第2个工作表
   
4.     With Worksheets(2)
   
5.         .Shapes.AddChart.Select     '插入图表
   
6.         .ChartObjects(1).Activate   '激活图表
   
7.         .ChartObjects(1).Name = "2030"  '图表名
   
8.     End With
   
9.     With ActiveChart
   
10.         .SeriesCollection.NewSeries         '添加新系列
    
11.         .SeriesCollection(1).Name = "=Sheet1!$A$2"      '名称，引用SHEET1的A2
    
12.         .SeriesCollection(1).Values = "=Sheet1!$B$2:$AE$2"      '系列的值
    
13.         .SeriesCollection(1).XValues = "=Sheet1!$B$1:$AE$1"     'X轴的值
    
14.         .SeriesCollection(1).ChartType = xlLine                 '折线图
    
15.         .SeriesCollection(1).Smooth = True                      '平滑线
    
16.         .SeriesCollection(1).Select                             '选中系列
    
17.     End With
    
18. 
    
19.     With Selection
    
20.         .MarkerStyle = 2                                        '菱形标记
    
21.         .MarkerSize = 2                                         '数据标志mark的大小
    
22.     End With
    
23. End Sub
    

复制代码

jzzhmm425

hwc2ycy 发表于 2013-4-27 17:57

再问一下这段代码是不是已经插入过了图表，然后用这段代码改图表呀？

hwc2ycy

其实用代码插入图表并进行设置的。

jzzhmm425

hwc2ycy 发表于 2013-4-29 08:40
其实用代码插入图表并进行设置的。

好的谢谢你了，我再研究一下吧